Cell Phone als USB device

Peter329 · 2. Juni 2021, 09:28

Hi,

ich habe ein (bescheidenes) cell phone ... und ab und zu mache ich damit Photos und möchte die auf meinen PC hochladen und auf dem cell phone löschen.

Klar, das kann man mit dem Windows Explorer machen ... aber das ist recht mühsam und deswegen möchte ich das mit einem VB Programm lösen.

Am liebsten wäre es mir, wenn ich dem cell phone einen LAUFWERKSBUCHSTABEN zuordnen könnte und das Dingens dann ganz normal über VB.Net Methoden ansprechen könnte. So wie das bei einen Netzlaufwerk ja auch funktioniert. Wenn das gehen sollte, dann wäre ich mehr als happy.

Ansonsten würde mir auch ein VB.Net Programm ausreichen, dass die FileNamen in meinem .../DCIM/Camera Ordner anzeigt, Files nach Auswahl auf meinen PC kopiert und auf dem cell phone löscht.

Mit anderen Worten: ich müsste eine geignete Methode haben, die das Verzeichnis des Ordners auf dem Cell phone ausliest, eine zweite, die Files vom cell phone auf den PC kopiert und eine dritte, die Files auf dem cell phone löscht.

Ist das zuviel verlangt ? Im dritten Jahrtausend A.D. sollte das ja eigentlich möglich sein.

Für freundliche und nachsichtige Ratschläge wäre ich wie immer sehr dankbar.

LG
Peter

petaod · 2. Juni 2021, 09:36

Der Weg geht über Shell32.BrowseForFolder
dev.flauschig.ch/wordpress/?p=212

Peter329 · 2. Juni 2021, 13:49

Jau, das war genau der Link, den ich gesucht hatte.

Man muss COM-Objekte verwenden ... und dann klappt das auch hervorragend !

Ich habe mal hier mein Coding eingestellt, weil der von @petoad eingestellt Link of Code verweist, der in C# geschrieben ist und zudem ein wichtiger Hinweis bezüglich der verwendeten Reference fehlt:

VB.NET-Quellcode

Dim ToBasePath As String = "... your target directory ... "
Dim ToSubdirectory As String = "Camera"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Check target path
If Not Directory.Exists(ToBasePath) Then
lblMessage.Text = "*** ToBasePath does not exist."
Exit Sub
End If
'Delete target directory, if it exists
Dim ToDirectory = IO.Path.Combine(ToBasePath, ToSubdirectory)
If Directory.Exists(ToDirectory) Then
Try
Directory.Delete(ToDirectory, recursive:=True)
Catch ex As Exception
lblMessage.Text = "*** Cannot delete existing ToDirectory"
MessageBox.Show(ex.Message)
Exit Sub
End Try
End If
'Select COM folder on cell phone
'Note: BrowserForFolder requires:
' + Reference to the COM Component "Microsoft Shell Controls and Automation"
' + Include Shell32 Namespace
'"Microsoft Shell Controls and Automation" causes error BC31541 (Interop type cannot be added).
'To avoid this error, click this reference and set:
' Accept Interop Types=False
Dim shell = New ShellClass()
Dim Hwnd As Integer
Dim FromFolder = shell.BrowseForFolder(Hwnd, "Choose folder", 0, 0)
If FromFolder Is Nothing Then
lblMessage.Text = "*** OK, cancelled."
Exit Sub
End If
'This is how to get the real path form the folder object, which is a cryptic expression:
'Dim fi As FolderItem = (TryCast(FromFolder, Folder3)).Self
'Dim path = fi.Path 'Just for your info
'Note: FromFolder is a COM-Object, so it cannot be used like a .NET directory
'Copy all files from cell phone to PC directory
Dim ToFolder = Path2Folder(ToBasePath) 'Convert target path to a 'COM folder
CopyFiles(FromFolder, ToFolder) 'Copy all files
'Check result of operation
If Directory.Exists(ToDirectory) Then
Dim FileList = Directory.GetFiles(ToDirectory)
lblMessage.Text = "OK, completed cnt=" & FileList.Count.ToString("n0")
Else
lblMessage.Text = "*** No target file created."
End If
End Sub
Public Sub CopyFiles(ByVal srcFolder As Folder, ByVal dstFolder As Folder)
For Each currFolderItem As FolderItem In srcFolder.Items()
If currFolderItem.Name = ToSubdirectory Then
'Default = 0 No Options specified
'NoProgressDialog = 4 Do Not display a Progress DialogBox
'RenameTarget = 8 Rename the Target File If a File exists at the Target Location With the same Name
'AutoYesToAll = 16 Click "Yes to All" In any DialogBox displayed
'PreserveUndo = 64 Preserve undo Information, If possible
'WildcardOnly = 128 Perform the Operation only If a Wildcard Filename (*.*) Is specified
'HideProgressFileNames = 256 Display a Progress DialogBox but Do Not show the Filenames
'NoNewFolderConfirmation = 512 Do Not confirm the creation Of a New Directory If needed
'NoUIonError = 1024 Do Not display a User Interface If an Error occurs
'DisableRecursion = 4096 Disable Recursion
'NoGroupCopy = 9182 Do Not copy connected Files as a Group. Only copy the specified Files
Dim myOption As Integer = 16
dstFolder.CopyHere(currFolderItem, myOption)
End If
Next
End Sub
Public Function Path2Folder(ByVal path As String) As Folder
'Directory.CreateDirectory(path)
Dim shell As Shell = New ShellClass()
Return shell.[NameSpace](path)
End Function

Funktioniert prima ... Ich hoffe, ich habe alles gut kommentiert. Vielleicht hilft mein Coding ja anderen Leuten, die ein ähnliches Problem haben.

Eine Kleinigkeit stört mich noch ein wenig ... wie kann ich denn den BrowseForFolder Dialog mit einem Anfangsdirectory starten lassen ?

Zur Zeit erhalte ich das angehängte Fensterchen ...

... und da muss ich mich jedesmal durchhangeln, bis ich auf das cell phone Camera Verzeichnis komme ...

This PC - my cell phone - DCIM

Mit anderen Worten: wie kriege ich denn "This PC" in eine Pfadangabe ?

Das sollte doch auch einfacher gehen ... oder etwa nicht ?

Und noch eine Kleinigkeit: wo bekomme ich denn die Enumeration für die folder.CopyHere Methode her (Default, NoProgressDialog, etc.) ? Natürlich könnte ich die selbst kodieren aber das ist ja nun nicht gerade die feine Art ...

LG
Peter

ThomasG82 · 2. Juni 2021, 14:31

Der Ausgangspunkt für den BrowseForFolder Dialog ist .RootFolder
Aber wenn du damit in einem bestimmten Verzeichnis startest wird alles darüber nicht mehr angezeigt.
Sprich ab 'C:\Testverzeichnis' abwärts aber 'C:\' nicht.

VaporiZed · 2. Juni 2021, 15:46

Alternativ ein anderer Filebrowser hier

Peter329 · 2. Juni 2021, 16:07

ThomasG82 schrieb:

Der Ausgangspunkt für den BrowseForFolder Dialog ist .RootFolder

Ich hab das (mangels besserm Wissens) wie folgt versucht:

VB.NET-Quellcode

Dim FromFolder = shell.BrowseForFolder(Hwnd, "Choose folder", 0, "This PC")

Die Syntax wird zwar akzeptiert. Aber leider funktioniert das nicht ! Es wird nach wie vor die oberste Hierachiestufe angezeigt.

Wenn ich da einen "handelsüblichen" Pfad eintrage z.B. C:\test\data, dann klappt das aber schon.

Deshalb meine Frage: wie verweise ich denn auf einen Pfad, der mit This PC beginnt ?

Wahrscheinlich ist meine Frage saublöde und offenbart (ein ums andere Mal) mein grenzenloses Nichtwissen ... deshalb bitte ich ja auch regelmäßig um nachsichtige Ratschläge ...

Gibt es Hoffnung für mich ?

LG
Peter

VaporiZed · 2. Juni 2021, 16:15

Durch eine kleine Schleife hab ich es herausgefunden: Dim FromFolder = shell.BrowseForFolder(Hwnd, "Choose folder", 0, 17)
Bin im Netz drauf gestoßen, dass der letzte Parameter eine Zahl ist. Und dann mit ner Schleife von 0 bis 25 bin ich auf die 17 gestoßen.

Peter329 · 2. Juni 2021, 16:49

Erst mal ganz herzlichen Dank ! Jau so kann man im BrowseForFolder Dialog auf "This PC" kommen.

Ich hätte gedacht, die Antwort würde mein Problem lösen. Aber leider ist dem nicht so.

Jetzt wirst du mir vermutlich gleich an die Gurgel springen, weil ich eigentlich weitergehende Anforderungen habe. Ich will nämlich nicht nur zu "This PC" springen, sondern zu meinem cell phone ... und dort in das Verzeichnis "DCIM".

So sieht mein BrowseForFolder Window jetzt aus. (s. Anhang)

Wie komme ich jetzt in den StartOrdner "This PC\GT-I9100\Phone\DCIM" ?

Oder noch besser: wie kann ich denn abprüfen könnte, ob das cell phone überhaupt montiert ist- Das hängt nämlich nicht immer an meinem PC ...

Ich würde also gern prüfen, ob es den o.a. Pfad überhaupt gibt. Und wenn der Pfad vorhanden ist, dann würde ich den BrowseForFolder Dialog gar nicht aufrufen wollen, sondern gleich das Verzeichnis verarbeiten.

So, jetzt liegen die Karten auf dem Tisch ... Ich hoffe, es gibt eine Lösung für mein Problem ...

LG
Peter

-Franky- · 2. Juni 2021, 16:49

@Peter329

Es gibt mehrere Möglichkeiten auf ein "portables Gerät" wie Handys zuzugreifen. Das eine wurde Dir ja schon genannt (Link zu dev.flauschig.ch). Du kannst auch direkt die entsprechenden Shell COM-Interfaces verwenden (Ohne zusaätzliche Verweise). Desweiteren gibt es die "Windows Portable Device"-COM-Interfaces (docs.microsoft.com/en-us/windo…/windows-portable-devices) die genau für solche Geräte, die per USB angeschlossen sind und keinen Laufwerksbuchstaben erhalten, verwendet werden kann. Für .NET gibt es z.B. dieses NuGet-Paket: nuget.org/packages/MediaDevices/1.8.0 Das NuGet-Paket hab ich nie verwendet. Mit den anderen Sachen habe ich schon mal programmiert.

Peter329 schrieb:

Oder noch besser: wie kann ich denn abprüfen könnte, ob das cell phone überhaupt montiert ist- Das hängt nämlich nicht immer an meinem PC ...

"Windows Portable Device"-COM-Interface IPortableDeviceManager
1. IPortableDeviceManager::RefreshDeviceList aufrufen
2. IPortableDeviceManager::GetDevices aufrufen -> Pointer auf die GeräteIDs (Array)-> Pointer zu String = GeräteID. Schaut in etwas so aus "\\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&122e7c35&0&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}"
3. IPortableDeviceManager::GetDeviceFriendlyName = Name des Gerätes
4. IPortableDeviceManager::GetDeviceManufacturer = Hersteller des Gerätes
5. IPortableDeviceManager::GetDeviceDescription = Beschreibung des Gerätes

Dieser PC = ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

Direkt zum Pfad kommst also mit ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\GeräteID\Phone\DCIM.

ThomasG82 · 2. Juni 2021, 20:52

@-Franky- hat dir ja im Prinzip die Lösung genannt.
Also einfach mit If Directory.Exists("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\GeräteID\Phone\DCIM") Then prüfen ob dein Phone angeschlossen und betriebsbereit ist und dann entsprechend handeln.
GeräteID musst du natürlich entsprechend anpassen

Peter329 · 3. Juni 2021, 07:23

Erst mal vielen Dank für eure Ratschläge. Ich hab mich mal ein bissl mit der Umsetzung befasst:

@ThomasG82:

Das mit dem Directory.Exists klappt bei mir nicht. Ich erhalte False auch wenn das Gerät angeschlossen ist. Der Windows Explorer zeigt das Gerät aber problemlos an.

Ich frage mich, wo der kryptische lange String herkommt ... das sieht mir nach einer Windows GUID aus ...

VB.NET-Quellcode

::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

Ist denn gesichert, dass dieser String auch auf meinem PC richtig ist ? Und wie stabil ist dieser String, d.h. kann sich das möglicherweise schon beim nächsten Windows Update völlig ändern ?

Fragen über Fragen ... aber in jedem Fall bringe ich das Dingens so nicht zum Laufen. Vielleicht hast du ja noch eine Idee.

@-Franky-:

-Franky- schrieb:

IPortableDeviceManager::RefreshDeviceList aufrufen

Die Schreibweise ist wohl C# ... die Klasse heißt wohl IPortableDeviceManager und die Methode RefreshDeviceList.

Da müsste ich die Klasse doch erst mal instanzieren. So habe ich das (nach Suche im Internet) versucht:

VB.NET-Quellcode

Dim devMgr As PortableDeviceApiLib.PortableDeviceManagerClass =
New PortableDeviceApiLib.PortableDeviceManagerClass

Die Klasse PortableDeviceApiLib wird aber nicht gefunden. Fehlt da ein Imports ... ? Vielleicht bin ich da aber auch vollständig auf dem Holzweg ...

Tja, auch da komme ich also nicht weiter. Ich hoffe, ihr habt genügend Geduld mit mir ...

LG
Peter

ThomasG82 · 3. Juni 2021, 07:45

Ok, ich glaube ich habe einen Doppelpunkt vergessen

Versuche mal über den Ausführen Dialog folgendes aus:

Quellcode

shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

Das ist ein Standardbefehl unter Windows. Sollte dich also immer auf Mein PC bringen

-Franky- · 3. Juni 2021, 08:13

@Peter329

Peter329 schrieb:

Das mit dem Directory.Exists klappt bei mir nicht. Ich erhalte False auch wenn das Gerät angeschlossen ist. Der Windows Explorer zeigt das Gerät aber problemlos an.

Kann ja noch nicht funktionieren da Du ja für den ganzen Pfad noch die GeräteID einsetzen musst.

Peter329 schrieb:

frage mich, wo der kryptische lange String herkommt ... das sieht mir nach einer Windows GUID aus ...

Das ist die CLSID für den virtuellen Ordner "Dieser PC".

Peter329 schrieb:

Die Klasse PortableDeviceApiLib wird aber nicht gefunden. Fehlt da ein Imports ... ?

Keine Ahnung was Du da als Verweis gesetzt hast. Ich weis das es für WPD auch COM-Verweise gibt die man in .NET einbinden kann. Ich glaube mich aber erinnern zu können das es mit eiem Verweis ein Problem bei der Funktion GetDevices gab. What ever. Da ich kein Freund von irgendwelchen Fremdpaketen und Verweisen auf irgendwelchen COM-Interfaces bin, programmiere ich mir sowas immer selber (Der Code, der jetzt kommt, stammt aus einem über 5 Jahre alten Projekt).

Zunächst: Erstelle eine Klasse mit dem Namen PortableDeviceManager mit folgendem Code

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Text
Imports System.Runtime.InteropServices
Public Class PortableDeviceManager
Implements IDisposable
Private Const IID_IPortableDeviceManager As String = "A1567595-4C2F-4574-A6FA-ECEF917B9A40"
Private Const CLSID_PortableDeviceManager As String = "0AF10CEC-2ECD-4B92-9581-34F6AE0637F3"
Private Const S_OK As Integer = 0
Public _ifc As IPortableDeviceManager
Sub New()
_ifc = DirectCast(Activator.CreateInstance(Type.GetTypeFromCLSID(New Guid(CLSID_PortableDeviceManager))), IPortableDeviceManager)
End Sub
#Region "Interface IPortableDeviceManager"
' https://msdn.microsoft.com/de-de/library/windows/desktop/dd388688(v=vs.85).aspx
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IPortableDeviceManager)>
Public Interface IPortableDeviceManager
<PreserveSig> Function GetDevices(<[In], Out, MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.LPWStr, SizeParamIndex:=1)> ByVal pPnPDeviceIDs As String(),
<[In], Out> ByRef pcPnPDeviceIDs As UInteger) As Integer
<PreserveSig> Function RefreshDeviceList() As Integer
<PreserveSig> Function GetDeviceFriendlyName(<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszPnPDeviceID As String,
<[In], Out, MarshalAs(UnmanagedType.LPWStr)> ByVal pDeviceFriendlyName As StringBuilder,
<[In], Out> ByRef pcchDeviceFriendlyName As UInteger) As Integer
<PreserveSig> Function GetDeviceDescription(<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszPnPDeviceID As String,
<[In], Out, MarshalAs(UnmanagedType.LPWStr)> ByVal pDeviceDescription As StringBuilder,
<[In], Out> ByRef pcchDeviceDescription As UInteger) As Integer
<PreserveSig> Function GetDeviceManufacturer(<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszPnPDeviceID As String,
<[In], Out, MarshalAs(UnmanagedType.LPWStr)> ByVal pDeviceManufacturer As StringBuilder,
<[In], Out> ByRef pcchDeviceManufacturer As UInteger) As Integer
<PreserveSig> Function GetDeviceProperty(<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszPnPDeviceID As String,
<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszDevicePropertyName As String,
<[In], Out, MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.ByValArray, SizeParamIndex:=1)> ByVal pData As Byte(),
<[In], Out> ByRef pcbData As UInteger,
<[In], Out> ByRef pdwType As UInteger) As Integer
<PreserveSig> Function GetPrivateDevices(<[In], Out, MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.LPWStr, SizeParamIndex:=1)> ByVal pPnPDeviceIDs As String(),
<[In], Out> ByRef pcPnPDeviceIDs As UInteger) As Integer
End Interface
#End Region
#Region "Interface Helper"
' Retrieves the count of portable devices connected to the computer
Public Function GetDeviceCount() As UInteger
Dim iDevCount As UInteger
Dim ret = _ifc.GetDevices(Nothing, iDevCount)
If ret = S_OK Then
Return iDevCount
ElseIf ret <> S_OK Then
Throw New COMException("GetDevices faild", ret)
End If
Return 0
End Function
' Retrieves a list of portable devices connected to the computer
Public Function GetDevices() As String()
Dim iDevCount As UInteger = GetDeviceCount()
If iDevCount > 0 Then
Dim sPnpDeviceID = New String(CInt(iDevCount - 1)) {}
Dim ret = _ifc.GetDevices(sPnpDeviceID, iDevCount)
If ret = S_OK Then
Return sPnpDeviceID
ElseIf ret <> S_OK Then
Throw New COMException("GetDevices faild", ret)
End If
Else
Return New String(-1) {}
End If
Return Nothing
End Function
' Refreshes the list of portable devices that are connected to the computer
Public Function RefreshDeviceList() As Boolean
Dim ret = _ifc.RefreshDeviceList
If ret = S_OK Then
Return True
ElseIf ret <> S_OK Then
Throw New COMException("RefreshDeviceList faild", ret)
End If
Return False
End Function
' Retrieves the user-friendly name for the device
Public Function GetDeviceFriendlyName(ByVal PnPDeviceID As String) As String
Dim iCharCount As UInteger
Dim ret = _ifc.GetDeviceFriendlyName(PnPDeviceID, Nothing, iCharCount)
If ret = S_OK Then
If iCharCount > 0 Then
Dim sDeviceFriendlyName As StringBuilder = New StringBuilder(Char.MinValue, CInt(iCharCount - 1))
ret = _ifc.GetDeviceFriendlyName(PnPDeviceID, sDeviceFriendlyName, iCharCount)
If ret = S_OK Then
Return sDeviceFriendlyName.ToString
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceFriendlyName faild", ret)
End If
End If
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceFriendlyName faild", ret)
End If
Return String.Empty
End Function
' Retrieves the description of a device
Public Function GetDeviceDescription(ByVal PnPDeviceID As String) As String
Dim iCharCount As UInteger
Dim ret = _ifc.GetDeviceDescription(PnPDeviceID, Nothing, iCharCount)
If ret = S_OK Then
If iCharCount > 0 Then
Dim sDeviceDescription As StringBuilder = New StringBuilder(Char.MinValue, CInt(iCharCount - 1))
ret = _ifc.GetDeviceDescription(PnPDeviceID, sDeviceDescription, iCharCount)
If ret = S_OK Then
Return sDeviceDescription.ToString
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceDescription faild", ret)
End If
End If
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceDescription faild", ret)
End If
Return String.Empty
End Function
' Retrieves the name of the device manufacturer
Public Function GetDeviceManufacturer(ByVal PnPDeviceID As String) As String
Dim iCharCount As UInteger
Dim ret = _ifc.GetDeviceManufacturer(PnPDeviceID, Nothing, iCharCount)
If ret = S_OK Then
If iCharCount > 0 Then
Dim sDeviceDescription As StringBuilder = New StringBuilder(Char.MinValue, CInt(iCharCount - 1))
ret = _ifc.GetDeviceManufacturer(PnPDeviceID, sDeviceDescription, iCharCount)
If ret = S_OK Then
Return sDeviceDescription.ToString
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceManufacturer faild", ret)
End If
End If
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceManufacturer faild", ret)
End If
Return String.Empty
End Function
' Retrieves a property value stored by the device on the computer
Public Function GetDeviceProperty(ByVal sPnpDeviceID As String, ByVal sDevicePropertyName As String) As String
Dim iData As UInteger
Dim iType As UInteger
Dim ret = _ifc.GetDeviceProperty(sPnpDeviceID, sDevicePropertyName, Nothing, iData, iType)
If ret = S_OK Then
If iData > 0 Then
Dim bData As Byte() = New Byte(CInt(iData - 1)) {}
ret = _ifc.GetDeviceProperty(sPnpDeviceID, sDevicePropertyName, bData, iData, iType)
If ret = S_OK Then
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceProperty faild", ret)
End If
End If
ElseIf ret <> S_OK Then
Throw New COMException("GetDeviceProperty faild", ret)
End If
Return String.Empty
End Function
' Retrieves the count of private portable devices connected to the computer
Public Function GetPrivateDeviceCount() As UInteger
Dim iDevCount As UInteger
Dim ret = _ifc.GetPrivateDevices(Nothing, iDevCount)
If ret = S_OK Then
Return iDevCount
ElseIf ret <> S_OK Then
Throw New COMException("GetPrivateDevices faild", ret)
End If
Return 0
End Function
' Retrieves a list of private portable devices connected to the computer
Public Function GetPrivateDevices() As String()
Dim iDevCount As UInteger = GetPrivateDeviceCount()
If iDevCount > 0 Then
Dim sPnpDeviceID = New String(CInt(iDevCount - 1)) {}
Dim ret = _ifc.GetPrivateDevices(sPnpDeviceID, iDevCount)
If ret = S_OK Then
Return sPnpDeviceID
ElseIf ret <> S_OK Then
Throw New COMException("GetPrivateDevices faild", ret)
End If
Else
Return New String(-1) {}
End If
Return Nothing
End Function
#End Region
#Region "IDisposable Support"
Private disposedValue As Boolean
Protected Overridable Sub Dispose(disposing As Boolean)
If Not disposedValue Then
If disposing Then
' TODO: verwalteten Zustand (verwaltete Objekte) entsorgen.
End If
If _ifc IsNot Nothing Then
Marshal.ReleaseComObject(_ifc)
_ifc = Nothing
End If
End If
disposedValue = True
End Sub
Protected Overrides Sub Finalize()
Dispose(False)
MyBase.Finalize()
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region
End Class

Das ganze wird dann in der Form folgendermaßen aufgerufen

Spoiler anzeigen

Du kannst ja die entsprechende Infos in eine Structure (Array) schaufeln und den DeviceFriendlyName in eine ComboBox . Ist Dein Gerät in der Auflistung vorhanden, ist es angeschlossen. Es können ja auch mehrere "portable Geräte" angeschlossen sein. Dann wählst aus der Combobox Dein Gerät aus, holst Dir die passende DeviceID zum DeviceFriendlyName aus der Structure.

Peter329 · 3. Juni 2021, 10:42

Wow ... das war natürlich SEHR nett von dir. Herzlichen Dank für den Code !

Ich hab den Code übernommen ... die Klassendefinition ist Syntax fehlerfrei. Allerdings die Button1 Routine hat einen kleinen Compile Fehler:

VB.NET-Quellcode

strDeviceID = sPnpDevIDs(Convert.ToInt32(uiItem))

Die Routine sPnpDevIDs wird nicht gefunden. So auf die Schnelle hab ich keine Ahnung, wo ich die herbekommen könnte. Vielleicht kannst du mir einen Hinweis geben.

-Franky- schrieb:

Kann ja noch nicht funktionieren da Du ja für den ganzen Pfad noch die GeräteID einsetzen musst.

Ich habe natürlich meine GeräteId eingesetzt ... aber du hast schon recht: man weiß ja nie, was die Leute so treiben.

VB.NET-Quellcode

If Directory.Exists("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\GT-I9100\Phone\DCIM") Then
lblMessage.Text = "OK"
Else
lblMessage.Text = "Not mounted."
End If

Die GeräteId habe ich aus dem Windows Explorer kopiert ... denn da wird das Gerät ja angezeigt. Das Ganze funktioniert also schlicht und ergreifend auf meinem PC nicht.

-Franky- schrieb:

Das ist die CLSID für den virtuellen Ordner "Dieser PC".

Was ist den eine CLSID ... wie stabil ist sie ... und wie finde ich den Wert heraus, falls er sich einstmals ändern sollte ?

Ich hoffe, ich bin nicht zu penetrant mit meiner Fragerei ...

LG
Peter

ThomasG82 · 3. Juni 2021, 12:35

Ob das direkt mit der CLSID funktioniert probiere ich gleich noch mal, sollte aber im englischen wie im deutschen System die gleiche sein, sie ist Windows weit gültig.Die CLSID ist kurz gesagt ein fester Wert aus der Registry für ein bestimmtes Kommando.
Länge Erklärungen :

Spoiler anzeigen

Peter329 · 3. Juni 2021, 13:43

Dann sollte es doch möglich sein, diesen Wert aus der Registry auszulesen. Und damit auch in meinem Programm anzupassen, wenn sich der Wert irgendwann ändern sollte. Wo steht denn nun diese vermaledeite CLSID ...

Offen gestanden bin ich ja froh, dass die Sache mit "This PC" nicht gar so einfach zu behandeln ist. Ich hatte schon befürchtet, dass ich irgend etwas völlig Triviales übersehen hätte ...

LG
Peter

-Franky- · 3. Juni 2021, 13:49

@Peter329

Peter329 schrieb:

Allerdings die Button1 Routine hat einen kleinen Compile Fehler

Ups, kleiner Fehler meiner seits.

Die Zeile sollte so aussehen

VB.NET-Quellcode

strDeviceID = strPnpDevIDs(Convert.ToInt32(uiItem))

Peter329 schrieb:

Ich habe natürlich meine GeräteId eingesetzt

Nö, hast Du nicht. Du hast den FriendyName Deines Handys eingesetzt. Nicht die GeräteID des Handys. Die GeräteID beginnt mit \\?\

Peter329 · 3. Juni 2021, 14:00

Jau ... der Compiler Fehler ist jetzt wech ... nachher test ich das dann !

-Franky- schrieb:

Nö, hast Du nicht. Du hast den FriendyName Deines Handys eingesetzt. Nicht die GeräteID des Handys. Die GeräteID beginnt mit \\?\

Das verstehe ich jetzt ... der Explorer zeigt mir also den FriendyName an ... Und wo bekomme ich jetzt die GeräteId her ?

LG
Peter

-Franky- · 3. Juni 2021, 15:02

@Peter329

Peter329 schrieb:

Das verstehe ich jetzt ... der Explorer zeigt mir also den FriendyName an ... Und wo bekomme ich jetzt die GeräteId her ?

Die GeräteID steht in strDeviceID.

Wie geschrieben: Bei mir schaut der Pfad so aus: ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&122e7c35&0&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}\Phone\DCIM

Peter329 · 4. Juni 2021, 06:41

Ok ... jetzt hab ich das geschnallt.

Dein Programm funktioniert hervorragend. Einfach genial !

Leider klappt aber mein Directory Test auch mit der DeviceID immer noch nicht. So habe ich das eingebaut:

VB.NET-Quellcode

For uiItem As UInteger = 0 To uiDevCount - 1UI
strDeviceID = strPnpDevIDs(Convert.ToInt32(uiItem))
Debug.Print("DeviceID = " & strDeviceID)
Debug.Print("DeviceFriendlyName = " & IPDevManager.GetDeviceFriendlyName(strDeviceID))
Debug.Print("DeviceManufacturer = " & IPDevManager.GetDeviceManufacturer(strDeviceID))
Debug.Print("DeviceDescription = " & IPDevManager.GetDeviceDescription(strDeviceID))
If IPDevManager.GetDeviceFriendlyName(strDeviceID) = "GT-I9100" Then
Dim DevPath = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\" & strDeviceID & "\Phone\DCIM"
Debug.Print("DevicePath = " & DevPath)
Debug.Print("Mounted = " & Directory.Exists(DevPath).ToString)
End If
Next

Und das ist die Ausgabe:

Quellcode

DeviceID = \\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&2d74280c&0&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}
DeviceFriendlyName = GT-I9100
DeviceManufacturer = SAMSUNG Electronics Co. Ltd.
DeviceDescription = GT-I9100
DevicePath = ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&2d74280c&0&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}\Phone\DCIM
Mounted = False

Hast du eine Idee wie und wo ich nach dem Fehler suchen könnte ? Vielleicht habe ich ja eine andere CLSID ? Nur wie kann ich das jetzt wieder abprüfen ...

Ich hoffe, du hast noch ein wenig Geduld mit mir ...

LG
Peter

Cell Phone als USB device

Cell Phone als USB device

VB.NET-Quellcode

ThomasG82 schrieb:

VB.NET-Quellcode

Peter329 schrieb:

VB.NET-Quellcode

-Franky- schrieb:

VB.NET-Quellcode

Quellcode

Peter329 schrieb:

Peter329 schrieb:

Peter329 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

-Franky- schrieb:

VB.NET-Quellcode

-Franky- schrieb:

Peter329 schrieb:

VB.NET-Quellcode

Peter329 schrieb:

-Franky- schrieb:

Peter329 schrieb:

VB.NET-Quellcode

Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben