学步园

问题提出：

1.有一个文件需要复制到文件夹bin中所有目录下
2.需要复制出bin目录下所有文件夹中的*.dll文件到另外一个新的目录 ，并保持原有的目录结构

解决方案：

1.VBS中FileSystemObject.CopyFile实现,代码如下:

文件名:CopyFileToFolders.vbs

Dim srcFile
Dim dstFolder,dstFolderName

Dim objFSO
Dim objDstFolder

srcFile = InputBox("Input the File Full Name where you will copy from:","SourceFile","FullName")
dstFolder = InputBox("Input the Floder Full Path Where you will copy to:","DestinationFolder","FullPath") 

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objDstFolder = objFso.GetFolder(dstFolder)

For Each objSubfolder in objDstFolder.Subfolders
    If Right(dstFolder,1)="" Then
        dstFolderName = dstFolder & objSubfolder.Name & ""
    Else
        dstFolderName = dstFolder & "" & objSubfolder.Name & ""
    End If
    objFSO.CopyFile srcFile,dstFolderName
Next
MsgBox "Copied Successful!",32,"Alert"

需要删除重新复制即可以用DOS命令:

del /s

2.1.VBS中FileSystemObject.MoveFile实现,代码如下:

文件名:MoveFolderFiles.vbs

Dim srcFolder,srcFile
Dim srcFileType
Dim dstFolder,dstFolderName

Dim objFSO
Dim objSrcFolder,objDstFolder
Dim objSubSrcFolders,objSubDstFolder


srcFolder = InputBox("Input the Floder Full Path where you will move from:","SourceFolder","FullPath")
srcFileType = InputBox("Input the Type of File which you will move:","SourceFileType","Postfix")
dstFolder = InputBox("Input the Floder Full Path Where you will move to:","DestinationFolder","FullPath")

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objSrcFolder = objFso.GetFolder(srcFolder)
Set objDstFolder = objFso.GetFolder(dstFolder)

For Each objSubSrcFolders In objSrcFolder.SubFolders

    If Right(srcFolder,1) = "/" Then
        srcFile = srcFolder & objSubSrcFolders.Name & "/" & srcFileType 
    Else
        srcFile = srcFolder & "/" & objSubSrcFolders.Name & "/" & srcFileType 
    End If

    dstFolderName = dstFolder & "/" & objSubSrcFolders.Name & "/"
    If Not objFSO.FolderExists(dstFolderName) Then
        objFSO.CreateFolder(dstFolderName)
    End If
    objFSO.MoveFile srcFile,dstFolderName

Next

MsgBox "Moved Successful!",32,"Alert"

另：可以用DOS命令的xcopy /s + del /s 取代，但当所复制文件较大时，建议用VBS处理。