Question

VB怎么实现拖动本地文件复制到局域网电脑

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
List1.AddItem Data.Files(1)
Shell "xcopy Data.Files(1) C:\Users\every\Desktop\TES /e /y"
End Sub

我这里的Data.Files(1)为什么不能是路径呢

Answer 1

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
List1.AddItem Data.Files(1)
Shell "xcopy "+Data.Files(1)+" C:\Users\every\Desktop\TES /e /y"
End Sub

追问

你的回答确实解决了这个问题，但我真正的问题还没解决。我是想要一个拖动文件（夹）实现拷贝、重命名的功能，路径是拖动文件的路径（任何路径），拷贝到一个可以自定义的指定路径。重命名不用变动路径或者指定自定义路径。

Answer 2

sever: step 1 : open file as binary step 2: read file to a variable step3: send it client: 1: loop receive data end loop 2: save it