Я использую VB.NET для создания приложения для копирования видео. Я могу легко скопировать нужные мне файлы с пути на USB, но у меня возникают проблемы с переносными устройствами, такими как телефоны.
До сих пор мне удавалось найти и подключить телефон, используя код и DLL, указанные в этом вопрос, но у меня проблемы с копированием файлов на устройство.
Мой код подпрограммы, связанной с этим, выглядит следующим образом:
Imports System.IO
Imports PortableDevices
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("Please make sure that your device is connected! Press ok to continue", MsgBoxStyle.OkOnly)
For Each item In listID.Items
table = Universal.convertType(item.ToString.Remove(6), 1)
colInitials = Universal.getStringUntilChar(table, "_")
'Code to get the file path stored in sql and store it as filePath
Dim filePath As New DirectoryInfo(SQL.getRecordedValue(table,
colInitials & "Location", colInitials & "ID", item.ToString.Remove(0, 6)))
Dim folderName As String = filePath.Name
' build collection for the devices
Dim pds As New PortableDeviceCollection
' get dev list
pds.Refresh()
For Each device In pds
' connect before doing stuff
device.Connect()
' find out what treasures are stored here
Dim root = device.GetContents()
' the root is the startingm root folder
'Dont know what to do here
' disconnect from this device
device.Disconnect()
Next
pds.First.Disconnect()
Next
End Sub