急,在线等,请大狭们指点

Question

如何判断盘符是否存在,并将其下所有文件拷贝出来,真的很急,谢谢大狭们了!~~~~

Answer 1

Private Sub Command1_Click()
On Error GoTo err
    Debug.Print Dir("e:\")
err:
If err.Number = 52 Then MsgBox "盘符不存在！"
End Sub

Answer 2

打印某盘符（或文件夹）下所有的文件：'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)Private Sub Command1_Click()
    MyProc1 "d:\"
End SubSub MyProc1(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    
    Set objFolder = fso.getFolder(Folder)
    For Each objFile In objFolder.Files
        MyProc2 objFile.Path
    Next
    For Each objFolder In objFolder.SubFolders
        MyProc1 objFolder '递归遍历整颗树
    Next
End SubSub MyProc2(FileName As String)
    Debug.Print FileName
End Sub

Answer 3

Private Sub Command1_Click()
    MyProc1 "E:\VB资料\Internet连接属性设置\取得连接属性设置"
End SubSub FileInFolder(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    Set objFolder = fso.GetFolder(Folder)
    
    For Each objFile In objFolder.Files
        Debug.Print objFile.Path
        fso.CopyFile objFile.Path, "d:\你的文件夹\", True
    Next
    For Each objFolder In objFolder.SubFolders
        MyProc1 objFolder '递归遍历整颗树
    Next
    
End Sub

Answer 4

Private Sub Command1_Click()
    FileInFolder"E:\VB资料\Internet连接属性设置\取得连接属性设置"
End Sub
Sub FileInFolder(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    Set objFolder = fso.GetFolder(Folder)
    
    For Each objFile In objFolder.Files
        Debug.Print objFile.Path
        fso.CopyFile objFile.Path, "d:\你的文件夹\", True
    Next
    For Each objFolder In objFolder.SubFolders
        MyProc1 objFolder '递归遍历整颗树
    Next
    
End Sub