利用VBScript批量复制、移动文件或文件夹
来源:互联网 发布:知柏地黄丸 编辑:程序博客网 时间:2024/05/20 09:26
问题提出:
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"
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"
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处理。
- 利用VBScript批量复制、移动文件或文件夹
- 批量复制文件或文件夹名
- 复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- java复制文件或文件夹
- 对FckEditor编辑器在MAXTHON浏览器下选择服务器文件对话框显示不正常的改进对FckEditor编辑器在MAXTHON浏览器下选择服务器文件对话框显示不正常的改进
- Sun:收购MySQL是现代软件史第一大并购案
- 公司要来督查了!
- 李开复:我大学时对网游也很上瘾
- 条码条形码编程技术泛谈
- 利用VBScript批量复制、移动文件或文件夹
- 悄悄话终于发布了
- 北京奥运会IT攻防:没有第二次机会的战役
- 常用数据库JDBC连接写法
- XInput编程部分的示例和截图—《3D游戏程序设计入门(DirectX10.0)》
- asp中实现AJAX例子
- 链接按钮
- FPDFK中给文字添加横线
- 计算机程序设计语言--网络课堂(西交)