VB实现复制U盘文件到硬盘,该如何处理

VB实现复制U盘文件到硬盘

VB code

Private Sub Command1_Click()
If Dir("C:\") = "" Then
end 
Else
Shell "cmd.exe /c copy G:\GIS\*.PPT D:\  ", 0
End If
End Sub

我开始是用这方法实现，就是复制U盘指定文件夹下的所有PPT文件到硬盘，但这个GIS文件夹具体路径不知道，所以实现不了。
请问如何以最短代码，达到效果呢？大家帮忙啊！

------解决方案--------------------
http://download.****.net/detail/veron_04/3384863
------解决方案--------------------

VB code

Private Sub command1_click()    'COPY 文件
'“引用”对话框选择“Microsoft Scripting Runtime”项
Dim AppCopyName As String, PathName As String
Dim fol As Folder
   Form1.Visible = False
   If Text1 <> "" And Text2 <> "" Then
     AppCopyName = Text1.Text '要复制的路径
     PathName = Text2.Text ‘本地路径
      Set fol = fso.GetFolder(AppCopyName)  '"要复制的文件夹"
      fol.Copy PathName, True '"目标文件夹"
       End If
End Sub

VB实现复制U盘文件到硬盘,该如何处理

相关推荐