Ich habe folgenden Script gefunden
mit ihm kann ich Dateien innerhalb des PC in andere Ordner kopieren
Sub Move_File()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
qFile = "161012-Lachvideo.mp4"
qFolder = "C:\Test\"
tFolder = "C:\Users\Peter\_1-Peter\TMP\"
'Kill tFolder & qFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.copyfile qFolder & qFile, tFolder, True
End Sub
Doch möchte ich zwischen Smartphone (Android) und PC Daten kopieren (leider sind die handelsüblichen APP und PC-Programme alle unbefriedigend.Wenn ich den Pfad meines Huawei-Handys auf dem Win-Explorer herauskopiere erhalte ich folgendes:
"Dieser PC\Huawei_Peter\Tmp\" oder ein Kopierprogramm zeigt folgenden Pfad an:
"mtp:\Huawei_Peter\Tmp\"
Doch leider kann diesen Pfad nicht qFolder zuweisen 'Fehler: "Pfad nicht gefunden"
Wer kann mir sagen, wie ich auf den Pfad vom Smartphone zugreifen kann?
Vielen Dank für Eure Hilfe
lg Pepi