Portables Gerät MTP zugreifen mit shell.BrowseForFolder

Panter · 20. Oktober 2023, 08:03

Hallo zusammen

Für meine Digitalkamera habe ich ein kleines Programm, welches mir die neuen Bilder von der Kamera auf den PC kopiert. Dabei werden die Rohdateibilder in einen anderen Ordner kopiert als die JPG Dateien. Die guten Bilder markiere ich und kann diese dann in einen anderen Ordner verschieben, auch die Rohdateibilder.

Nun habe ich aber eine Kamera für meine Tochter gekauft, welche als Portables Gerät angezeigt wird. Ich habe nun etwas geforscht, bin z.B. auf diesen Artikel gelangt: Cell Phone als USB device

Nun habe ich mit Shell.BrowseForFolder relativ einfach gegen den Rat von Franky Zugriff auf die Kamera. Der Grund ist, ich habe überhaupt keine Grundlagen für Zugriffe auf API.

Mein Problem. Wie kann ich den ausgewählten Pfad speichern, dass ich nicht jedes mal den Browser starten muss? Mit der Funktion Ordnerpfad_ermittlen() kann ich den Pfad auslesen, mit diesem Pfad kann ich aber kein Folder erzeugen. Mit den Normalen Pfade (z.B. "C:\Temp\) kann ich problemlos ein Folder erstellen.

Besten Dank für Eure Tipps

Aufruf:

Spoiler anzeigen

Modul:

Spoiler anzeigen

VB.NET-Quellcode

'https://www.vb-paradise.de/index.php/Thread/133529-Cell-Phone-als-USB-device/
Imports System.IO
Imports Shell32
Module MTP_Kopieren
Public Function Ordnerpfad_ermittlen() As String
'für Import von Kamera oder auch Natel:
' + 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 Shell()
Dim Hwnd As Integer
Dim FromFolder = shell.BrowseForFolder(Hwnd, "Choose folder", 0, 17)
If FromFolder Is Nothing Then
MsgBox("*** OK, cancelled.")
Return ""
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 folder = DirectCast(FromFolder, Folder3)
Ordnerpfad_ermittlen = folder.Self.Path.ToString
End Function
Sub Dateien_Kopieren(Quellordner As String, Zielordner As String, ZielordnerRAW As String, Rohdateiendung As String, GutebilderOrdner As String)
Dim shell = New Shell()
Dim Hwnd As Integer
'Dim quellordnerShell As Folder3 = DirectCast(shell.NameSpace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_2717&pid_ff40#3803ec03#{6ac27878-a6fa-4155-ba85-f98f491d4f33}\SID-{10001,,56481779712}\{E903B08B-FFFF-FFFF-0000-000000000000}\{54CDAA72-0000-0000-0000-000000000000}"), Folder3)
Dim quellordnerShell As Folder3 = DirectCast(shell.NameSpace(Quellordner), Folder3)
Dim ZielordnerShell As Folder3 = DirectCast(shell.NameSpace(Zielordner), Folder3)
Dim ZielordnerRAWshell As Folder3 = DirectCast(shell.NameSpace(ZielordnerRAW), Folder3)
If quellordnerShell Is Nothing Then
quellordnerShell = shell.BrowseForFolder(Hwnd, "Choose folder", 0, 17)
End If
'Dim folder = DirectCast(srcFolder, Folder3)
For Each item In quellordnerShell.Items
If TypeOf item Is Folder3 Then
Dim subFolder = DirectCast(item, Folder3)
ElseIf TypeOf item Is FolderItem2 Then
Dim fileItem = DirectCast(item, FolderItem2)
If File.Exists(IO.Path.Combine(Zielordner, fileItem.Name.ToString)) Or
File.Exists(IO.Path.Combine(ZielordnerRAW, fileItem.Name.ToString)) Or
File.Exists(IO.Path.Combine(GutebilderOrdner, fileItem.Name.ToString)) Or
File.Exists(IO.Path.Combine(GutebilderOrdner, "raw", fileItem.Name.ToString)) Then
Else
If fileItem.Name.Substring(fileItem.Name.Length - Rohdateiendung.Length).ToLower = Rohdateiendung.ToString.ToLower Then
ZielordnerRAWshell.CopyHere(fileItem)
Debug.Print("Rohdatei: " & fileItem.Name.ToString)
' Kopieren der Datei
Else
'für z.B. Filme
ZielordnerShell.CopyHere(fileItem)
Debug.Print("JPG: " & fileItem.Name.ToString)
End If
End If
End If
Next
End Sub
End Module

ErfinderDesRades · 20. Oktober 2023, 16:25

Panter schrieb:

Mit der Funktion Ordnerpfad_ermittlen() kann ich den Pfad auslesen, mit diesem Pfad kann ich aber kein Folder erzeugen.

warum nicht? was ist besonderes an dem Pfad, den Ordnerpfad_ermittlen() returnt?

-Franky- · 20. Oktober 2023, 22:36

ErfinderDesRades schrieb:

warum nicht? was ist besonderes an dem Pfad, den Ordnerpfad_ermittlen() returnt?

Vermutlich weil der zurück gegebene Pfad so aussieht: "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_2717&pid_ff40#3803ec03#{6ac27878-a6fa-4155-ba85-f98f491d4f33}\SID-{10001,,56481779712}\{E903B08B-FFFF-FFFF-0000-000000000000}\{54CDAA72-0000-0000-0000-000000000000}"

@Panter Ich kenne mich mit dem Verweis auf die Shell nicht aus. Ich bin ja eher für direkte Nutzung der COM-Interfaces ohne Verweise.Wie auch immer, es müsste sowas wie GetDisplayName geben wo du über eine Enum SIGDN -> learn.microsoft.com/en-us/wind…re/ne-shobjidl_core-sigdn auswählen kannst, wie der zurück gegebene Pfad formatiert werden soll. Unter anderem auch so, wie Du Ihn auch im Explorer sehen kannst. Schaut dann ungefähr so aus "Dieser PC (::{20D04FE0-3AEA-1069-A2D8-08002B30309D})\DeviceID (\\?\usb#vid_2717&pid_ff40#3803ec03#{6ac27878-a6fa-4155-ba85-f98f491d4f33})\Interner Speicher (SID-{10001,,56481779712})\DCIM ({E903B08B-FFFF-FFFF-0000-000000000000})\usw. Allerdings ohne diese CLSIDs/StorageID usw.

Panter · 21. Oktober 2023, 10:33

Hallo ErfinderdesRades, hallo Franky

Besten Dank für eure Antworten. Ja, der Pfad ist ungefär so: "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_2717&pid_ff40#3803ec03#{6ac27878-a6fa-4155-ba85-f98f491d4f33}\SID-{10001,,56481779712}\{E903B08B-FFFF-FFFF-0000-000000000000}\{54CDAA72-0000-0000-0000-000000000000}"

Ich werde wohl mich etwas in die Nutzung der COM-Interfaces einlesen müssen. Ich habe noch ein Projekt gefunden, welches ich an meine Bedürfnisse anpassen kann. Falls Ihr mir einen Link habt, wo die Grundlagen etwas einfach erklärt würden, wäre ich sehr dankbar.

LG Panter

-Franky- · 21. Oktober 2023, 10:44

Hi, evtl. hilft Dir das zum Verständnis auch weiter: FolderBrowserDialog in .Net nachbilden Da kannst Du mal mit der Enum SIGDN spielen und schauen was da wie als Pfad zurück gegeben wird. Das müsste doch auch mit dem Verweis auf die Shell funktionieren.

Edit: Das ist ein ganz altes Bsp. von mir das nur mit den WPD COM-Interfaces funktioniert. Da das nur ein Testprojekt ist, ist der Code auch grottig.

activevb.de/cgi-bin/upload/search.pl und dort nach VBC_VBN_WindowsPortableDevice.zip suchen. Die beiden VB6 Projekte kannst ja löschen.

Panter · 23. Oktober 2023, 15:22

Hallo Franky

Dein angeblich grottig programmiertes Projekt auf ActiveVB.de ist genau das was ich gesucht habe. Ich habe eine Form2 erstellt, und einfach dein Code auf meine Bedürfnisse angepasst. Ich habe zwar keine Ahnung wie das Ganze funktioniert - Aber meine ersten Versuche waren von Erfolg gekrönt. Falls jemand auch so etwas Programmieren möchte - ich habe mal meinen Code angefügt. Dabei greife ich immer auf den selbenOrdner - DCIM - Diverses - welcher zuerst gesucht wird. Beim Testen war die ObjID von diesem Ordner auf einmal eine andere. Mit GetContentFolder bzw. etContentFiles kann man ja die Daten auslesen und mit mnuCopyFrom kopieren.

Einfach toll - Besten Dank

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Imports System.ComponentModel
Public Class Form2
Private Structure Portable_Dateiliste
Dim Dateinamen As String
Dim sObjID As String
End Structure
Private Structure Portable_Ordner
Dim OrdnerName As String
Dim sObjID As String
End Structure
Private List_Dateien As New List(Of Portable_Dateiliste)
Private List_Ordner As New List(Of portable_Ordner)
Private sDevID As String = String.Empty
Private sPnpDevIDs As String() = New String() {}
Private currIPDev As PortableDevice
Private currIPDevValues As PortableDeviceValues
Private currIPDevContent As PortableDeviceContent
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ObjID As String = ""
sDevID = "\\?\usb#vid_2717&pid_ff40#3803ec03#{6ac27878-a6fa-4155-ba85-f98f491d4f33}"
'Verbindung herstellen und List OF (List_Dateien füllen)
currIPDevValues = New PortableDeviceValues
currIPDevValues.SetStringValue(GetPropertyKey(PropertyKeys.WPD_CLIENT_NAME), "WPD-Demo")
currIPDevValues.SetStringValue(GetPropertyKey(PropertyKeys.WPD_CLIENT_MAJOR_VERSION), "1")
currIPDevValues.SetStringValue(GetPropertyKey(PropertyKeys.WPD_CLIENT_MINOR_VERSION), "0")
currIPDevValues.SetStringValue(GetPropertyKey(PropertyKeys.WPD_CLIENT_REVISION), "0")
currIPDev = New PortableDevice
If currIPDev.Open(sDevID, currIPDevValues) = True Then
currIPDevContent = currIPDev.Content
'Quellordner suchen - Device - DCIM - Diverses
EnumerateContent(currIPDevContent, "DEVICE", 0, True, True) '
EnumerateContent(currIPDevContent, List_Dateien(0).sObjID.ToString, 0, True, True)
ObjID = List_Ordner.FirstOrDefault(Function(folder) folder.OrdnerName = "DCIM").sObjID
EnumerateContent(currIPDevContent, ObjID, 0, True, True)
ObjID = List_Ordner.FirstOrDefault(Function(folder) folder.OrdnerName = "Diverses").sObjID
If ObjID Is Nothing Then
MsgBox("Fehler - Ordner wurde nicht gefunden")
currIPDev.Close()
Return
End If
GetContentFiles(currIPDevContent, ObjID)
Call WDP_Kopieren(currIPDevContent, "c:\temp\mi8", ".arw", "c:\temp\guteBilder")
MsgBox("fertig")
currIPDev.Close()
'GetSupportedProperties(currIPDevContent, WPD_DEVICE_OBJECT_ID, lbProperties)
'GetSupportedCommands(currIPDev)
'ResetDevice(currIPDev)
'ContentLocation(currIPDev)
'StorageEject(currIPDev)
'StorageFormat(currIPDev)
'SmsSend(currIPDev)
'StillImageCapture(currIPDev)
'ListDeviceStorage(currIPDevContent)
End If
End Sub
Sub WDP_Kopieren(Content As PortableDeviceContent, Zielordner As String, Rohdateiendung As String, GutebilderOrdner As String)
Dim Zielordner_raw As String = Path.Combine(Zielordner, "arw")
Dim GuteBilder_Raw As String = Path.Combine(GutebilderOrdner, "arw")
For Each x In List_Dateien
If File.Exists(IO.Path.Combine(Zielordner, x.Dateinamen.ToString)) Or
File.Exists(IO.Path.Combine(Zielordner_raw, x.Dateinamen.ToString)) Or
File.Exists(IO.Path.Combine(GutebilderOrdner, x.Dateinamen.ToString)) Or
File.Exists(IO.Path.Combine(GuteBilder_Raw, x.Dateinamen.ToString)) Then
Debug.Print("Datei vorhanden: " & x.Dateinamen.ToString)
Else
If x.Dateinamen.ToString.Substring(x.Dateinamen.ToString.Length - Rohdateiendung.Length).ToLower = Rohdateiendung.ToString.ToLower Then
mnuCopyFrom(Content, x.sObjID, Zielordner_raw)
Debug.Print("Kopiere Rohdatei: " & x.Dateinamen.ToString)
Else
'für z.B. Filme / JPG
mnuCopyFrom(Content, x.sObjID, Zielordner)
Debug.Print("Kopiere JPG: " & x.Dateinamen.ToString)
End If
End If
Next
End Sub
Private Sub GetContentFiles(ByVal Content As PortableDeviceContent, ByVal ParentID As String)
'lbFile.Items.Clear()
EnumerateContent(Content, ParentID, 0, False, False)
End Sub
Private Sub GetContentFolder(ByVal Content As PortableDeviceContent, ByVal ParentID As String, ByVal ParentName As String)
EnumerateContent(Content, ParentID, 1, True, True)
End Sub
Private Sub EnumerateContent(ByVal Content As PortableDeviceContent, ByVal ParentID As String,
Optional ByVal Deep As Integer = 0, Optional ByVal FolderOnly As Boolean = False,
Optional ByVal RecursiveFolder As Boolean = False)
List_Dateien.Clear()
List_Ordner.Clear()
Using Properties As PortableDeviceProperties = Content.Properties
Using Value As New PortableDeviceValues
Using ObjectIDs As EnumPortableDeviceObjectIDs = Content.EnumObjects(0, ParentID, Value)
Dim sObjID As String() = New String() {}
Dim uFetched As UInteger
If ObjectIDs.Next(1, sObjID, uFetched) = True Then
Do While uFetched <> 0
Application.DoEvents()
Dim currentObject As WpdStruct.PDF = WrapObject(Properties, sObjID(0))
If currentObject.PDFF_Type = WPD_CONTENT_TYPE_FOLDER Then
Dim Eintrag As New Portable_Ordner
Eintrag.OrdnerName = currentObject.PDFF_OriginalName
Eintrag.sObjID = currentObject.PDFF_ObjectId
Debug.Print(Eintrag.OrdnerName.ToString & " " & Eintrag.sObjID.ToString)
List_Ordner.Add(Eintrag)
Else
Dim Eintrag As New Portable_Dateiliste
Eintrag.Dateinamen = currentObject.PDFF_OriginalName
Eintrag.sObjID = currentObject.PDFF_ObjectId
Debug.Print(Eintrag.Dateinamen.ToString & " " & Eintrag.sObjID.ToString)
List_Dateien.Add(Eintrag)
End If
ObjectIDs.Next(1, sObjID, uFetched)
Loop
End If
End Using
End Using
End Using
End Sub
Private Function WrapObject(ByVal Properties As PortableDeviceProperties, ByVal objectId As String) As WpdStruct.PDF
Dim tRet As New WpdStruct.PDF
Using Keys = New PortableDeviceKeyCollection
Call Keys.Add(GetPropertyKey(PropertyKeys.WPD_OBJECT_ID))
Call Keys.Add(GetPropertyKey(PropertyKeys.WPD_OBJECT_PARENT_ID))
Call Keys.Add(GetPropertyKey(PropertyKeys.WPD_OBJECT_NAME))
Call Keys.Add(GetPropertyKey(PropertyKeys.WPD_OBJECT_ORIGINAL_FILE_NAME))
Call Keys.Add(GetPropertyKey(PropertyKeys.WPD_OBJECT_CONTENT_TYPE))
Using Values = Properties.GetValues(objectId, Keys)
If Values.GetCount > 0 Then
tRet.PDFF_ObjectId = Values.GetStringValue(GetPropertyKey(PropertyKeys.WPD_OBJECT_ID))
tRet.PDFF_ParentId = Values.GetStringValue(GetPropertyKey(PropertyKeys.WPD_OBJECT_PARENT_ID))
tRet.PDFF_Name = Values.GetStringValue(GetPropertyKey(PropertyKeys.WPD_OBJECT_NAME))
tRet.PDFF_OriginalName = Values.GetStringValue(GetPropertyKey(PropertyKeys.WPD_OBJECT_ORIGINAL_FILE_NAME))
tRet.PDFF_Type = Values.GetStringValue(GetPropertyKey(PropertyKeys.WPD_OBJECT_CONTENT_TYPE))
End If
End Using
End Using
Return tRet
End Function
Private Sub mnuCopyFrom(ByVal Content As PortableDeviceContent, ByVal ObjId As String, ZielOrdner As String)
Using IPDevResources As PortableDeviceResources = Content.Transfer
Dim optimalTransferSize As UInteger
Using IContentStream As Stream = IPDevResources.GetStream(ObjId, GetPropertyKey(PropertyKeys.WPD_RESOURCE_DEFAULT),
WpdStruct.STGM.STGM_READ, optimalTransferSize)
Dim fileSize = GetPropertyInt(Content, ObjId, GetPropertyKey(PropertyKeys.WPD_OBJECT_SIZE))
Dim fileName = GetPropertyStr(Content, ObjId, GetPropertyKey(PropertyKeys.WPD_OBJECT_ORIGINAL_FILE_NAME))
'Using fsd As New SaveFileDialog
'fsd.Title = "Save File"
'fsd.FileName = fileName
'fsd.ShowDialog()
'If fsd.FileName <> "" Then
If fileSize > 0 Then
Dim copyfileBuffer As Boolean = False
Dim fileBuffer As Byte() = New Byte(fileSize - 1) {}
If fileSize <= optimalTransferSize Then
If IContentStream.Read(fileBuffer, CUInt(fileSize)) = fileSize Then
copyfileBuffer = True
End If
Else
Dim copyItem As UInteger
Dim copyCount As UInteger = CUInt(fileSize \ optimalTransferSize)
Dim lastBytes As UInteger = CUInt(fileSize - (copyCount * optimalTransferSize))
Dim tmpfileBuffer As Byte() = New Byte(CInt(optimalTransferSize - 1)) {}
For copyItem = 0 To CUInt(copyCount - 1)
If IContentStream.Read(tmpfileBuffer, optimalTransferSize) = optimalTransferSize Then
copyfileBuffer = True
Array.Copy(tmpfileBuffer, 0, fileBuffer, optimalTransferSize * copyItem, optimalTransferSize)
Else
copyfileBuffer = False
End If
Next copyItem
Array.Resize(tmpfileBuffer, CInt(lastBytes))
If IContentStream.Read(tmpfileBuffer, lastBytes) = lastBytes Then
copyfileBuffer = True
Array.Copy(tmpfileBuffer, 0, fileBuffer, optimalTransferSize * copyItem, lastBytes)
Else
copyfileBuffer = False
End If
tmpfileBuffer = Nothing
End If
If copyfileBuffer = True Then
Using fs As FileStream = New FileStream(Path.Combine(ZielOrdner, fileName), FileMode.Create) 'Type(fsd.OpenFile(), System.IO.FileStream)
fs.Write(fileBuffer, 0, fileBuffer.Length)
fs.Close()
End Using
fileBuffer = Nothing
'MsgBox("File under '" & fsd.FileName & "' saved.", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, "Save File")
End If
End If
'End If
'End Using
End Using
End Using
End Sub
End Class

-Franky- · 23. Oktober 2023, 17:55

Panter schrieb:

Dein angeblich grottig programmiertes Projekt

Doch doch, ist grottig. Das wird Dir jeder hier bestätigen können. Aber darum geht es auch nicht in einem Testprojekt. Das zeigt nur wie es funktioniert. Die WPD COM-Interfaces sind schon Recht speziell und da geht noch viel mehr als das, was ich da im Testprojekt zeige. Falls Du Dich da einarbeiten möchtest: learn.microsoft.com/de-de/wind…/windows-portable-devices und weitere Funde in der MS-Doku bzw. im Internet zu diesem Thema. Evtl. bastel ich irgendwann mal noch ein Bsp. per WinRT (UWP): learn.microsoft.com/de-de/uwp/…portable?view=winrt-22621 für VB6 und VB.NET.

Portables Gerät MTP zugreifen mit shell.BrowseForFolder

Portables Gerät MTP zugreifen mit shell.BrowseForFolder

VB.NET-Quellcode

VB.NET-Quellcode

Panter schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

Panter schrieb:

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben