问题提出:
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 " )
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 " )