[megaloman]

VBS сохранить 1251

Код:

BoxIn = "D:\Мой контент"
BoxOut = "Z:\Box_Out"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Right(BoxIn, 1) <> "\" Then BoxIn = BoxIn + "\"
If Right(BoxOut, 1) <> "\" Then BoxOut = BoxOut + "\"

Call Directory(FSO, BoxIn, "", BoxOut)

MsgBox "Сделано!"
'---------------------End Sub

Sub Directory(FSO, DName, DIn, DOut)
    Set D = FSO.GetFolder(DName)
    Dold = D.Path + "\"
    If DIn = "" Then DIn = Dold
    DNew = Replace(Dold, DIn, DOut)
    If Not FSO.FolderExists(DNew) Then FSO.CreateFolder (DNew)
    
    Set Files = D.Files
    For Each iFile In Files
        Dt = CStr(iFile.DateLastModified)
        Dt = Replace(Dt, " ", "_")
        Dt = "-" + Replace(Dt, ":", ".") + ".txt"
        Set FF = FSO.CreateTextFile(Dnew + iFile.Name + Dt, True): FF.Close
    Next
    
    Set SubD = D.SubFolders
    For Each Direct In SubD
        Call Directory(FSO, Direct, DIn, DOut)
    Next
End Sub