Come da soggetto vorrei copiare un file da un PC W10 ad un tablet Android 8.
Da Esplora Risorse vedo il tablet e posso anche trasferirci dei file nelle cartelle (del tablet) desiderate, però solo manualmente. Vorrei farlo ovviamente con un po' di codice VB6, premendo un solo tasto.
Sto sperimentando il seguente codice che informa il PC qual'è il GUID del tablet visto che tale device non sembra avere una unita fisica (D:, E:, F:, ecc). Spero vivamente che questo GUID esso non cambi ad ogni riavvio ma sia specifico del mio tablet !
codice:
' --- Ricavo la directory di Windows
   Sbuffer = String$(255, 0)
   lResult = GetWindowsDirectory(Sbuffer, Len(Sbuffer))
   WinDir = Left$(Sbuffer, lResult)
   '--- monto
   NomeFile = "Copia.pdf"
   GUID = "{eec5ad98-8080-425f-922a-dabf3de3f69a}"' GUID class del Tablet
   Unita = "W:\"' non esiste un hd W:\ fisico ! 
   Sorgente = "D:\Archivi\Giudizi\" & NomeFile
   Destinazione = Unita & NomeFile
   S = WinDir + "\mountvol " & Unita & " \\?\Volume{" & GUID & "}\"
   ExecCmd S
   '--- copio
   S = "Copy " & Sorgente & " " & Destinazione
   ExecCmd S
   '--- probabilmente devo smontare
   S = WinDir + "\mountvol " & Unita & "/AData/FirmaTablet/" & NomeFile & " \\?\Volume{" & GUID & "\ /D"
   ExecCmd S
Probabilmente il mio errore è nei parametri che fornisco a "mountvol" oppure nella inesatta definizione di "Unita". Qualcuno è in grado di fornirmi un aiuto ?
Grazie per l'attenzione.