On Error Resume Next
Dim objFSO,sourcepath,t
argetpath,targetfile
Function GetSourceFile(path)
Dim file,folder,sfolder,s
ubfolder,files
If Not objFSO.FolderExists(path) Then
Msgbox "目标文件夹不存在!"
Else
objFSO.CreateFolder targetpath &
amp; Right(path,Len(path)-Len(sourcepath))
Set folder=objFSO.GetFolder(path)
Set files=folder.files
For
each file in files
targetfile=targetpath & Right(path,Len(path)-Len(sourcepath)) & "\" & file.name & ".zip"
Set fp=objFSO.O
PEnTextFile(targetfile,2,True)
fp.Wr
ITe C
hr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
fp.Close
oApp.
namespace(targetfile).CopyHere path & "\" & file.name
WScript.Sleep 1000
Next
Set subfolder=folder.subfolders
For Each sfolder in subfolder
GetSourceFile path & "\" & sfolder.name
Next
End If
End Function
Set objFSO=CreateObject("Scripting.File
SystemObject")
Set oApp=CreateObject("Shell.Application")
sourcepath="C:\
Documents and Settings\Administrator\桌面\Watermarks"
targetpath="D:\temp"
GetSourceFile sourcepath
Set objFSO=Nothing
Set oApp=Nothing
.
s文件,然后修改sourcepath与targetpath注意目标目录必须是新目录,使用的时候最好加上判断。