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

VB code

Private Sub Command1_Click()If Dir("C:\") = "" Thenend ElseShell "cmd.exe /c copy G:\GIS\*.PPT D:\  ", 0End IfEnd Sub

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

[解决办法]
http://download.csdn.net/detail/veron_04/3384863
[解决办法]

VB code

Private Sub command1_click()    'COPY 文件'“引用”对话框选择“Microsoft Scripting Runtime”项Dim AppCopyName As String, PathName As StringDim 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 IfEnd Sub