Mutarea folderelor folosind VBS

Încă o dată, am fost bucuros să am sprijinul VBS în XP.

Doar recent am confruntat, pe de o parte, o sarcină trivială - pentru a muta aproximativ 100 de dosare de la o locație la alta, dar nu dintr-o dată, ci unul câte unul, cel mult două intervale de 7-10 minute. De ce asemenea dificultăți? Faptul că directorul țintă este monitorizat lansator samopisnaya că, atunci când noi dosare trage ftp.exe cu tastele necesare și, în consecință, a încărca fișiere pe un server FTP. Firește mișcarea unică a tuturor folderelor va duce la prăbușirea ușor 🙂 mai mult, astfel încât fluxurile de mai mult de 2-3 aplod pe server nu trage.







În curte 3 dimineața, după șapte dosare mutat manual răbdare mic script câteva linii pe VBS, ceea ce ar ridica în ciclul de numele directorului este epuizată și a fost scrisă, mutați-le în folderul țintă, și apoi a mers la culcare, timp de 10 minute. În dimineața am verificat jurnalele serverului. Grace a venit.







Setați objFSO = CreateObject ("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ( «source_folder_path»)
Setați colSubfolders = objFolder.Subfolders
Pentru fiecare pachet objSub în colSubfolders
objFSO.MoveFolder «source_folder_path» + objSubfolder.Name. «Target_folder_path»
Wscript.Sleep (600000)
următor

Este clar că această problemă este o singură dată și este puțin probabil să se întâmple din nou, în viitorul apropiat, dar este întotdeauna mai ușor să-și petreacă câteva minute pentru o soluție rapidă și elegantă a problemei decât să stea zile întregi și pentru a muta fișiere sau de căutare programmulinu care acceptă o astfel de caracteristică ciudată.

Și, în general, VBS ușurează viața într-o serie de cazuri.

Distribuiți acest lucru







Articole similare

Trimiteți-le prietenilor: