写了这么久代码，连基本的调试都不会。如果不对那就每个代码后加一个提示框，然后看哪个不对就改正确啊，应该是D盘。还是A盘不是自己指定的吗？！
If FileSys.DirectoryExists(path) Then
msgbox("path=" & path)
For Each file As String In FileSys.GetFiles(path)
msgbox("file =" & file )
Dim name As String = FileSys.GetName(file)
msgbox("name =" & name )
msgbox("str1=" & str1)
If name.Contains(str1) Then
msgbox("C:\Users\Administrator\Desktop\商户经营照片\" & str1)
If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\商户经营照片" ) = False Then
FileSys.CreateDirectory("C:\Users\Administrator\Desktop\商户经营照片")
If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\商户经营照片\" & str1) = False Then
FileSys.CreateDirectory("C:\Users\Administrator\Desktop\商户经营照片\" & str1)
End If
End If
msgbox("C:\Users\Administrator\Desktop\商户经营照片\" & str1 & "\" & name)
FileSys.CopyFile(file ,"C:\Users\Administrator\Desktop\商户经营照片\" & str1 & "\" & name , True)
End If
Next
End If
[此贴子已经被作者于2019/8/21 17:01:49编辑过]
加好友 
发短信
Post By：2019/8/21 8:45:00 [显示全部帖子]
