Często jest że szukamy jakiś plików które pasują do jakiegoś wzorca, np: nazwa ich zaczyna się od "log" a rozszerzenie jest "encrypted" co wskazuje że szukamy plików zaszyfrowanych logów do tego zbadamy czy plik nie jest starszy niż 48h, w tym skrypcie akurat plik pasujący do wzorca będzie kasowany ale możemy z nim robić wszystko, np: kopiować do innego folderu a ten znowu backupować... poniżej procedura i fragment kodu vbscript który mam nadzieję przyda się wam na środowiskach produkcyjnych
aby zobaczyć cały kod vbscript zapraszam do rejestracji
Option Explicit
sub DeleteFiles(byval strDirectory,byval strExtensionsToDelete,byval maxAge,includeSubFolders)
DIM objFolder, objSubFolder, objFile, objFSO
DIM strExt
set objFSO = createobject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(strDirectory)
for each objFile in objFolder.Files
for each strExt in SPLIT(UCASE(strExtensionsToDelete),",")
' pattern LCase(File.Name) = FileName
'testowe wyświetlenie danych składowych znalezionych plików
'wscript.echo strExt 'szukane rozszerzenie pliku
'wscript.echo objFile.Name 'nazwa pliku
'wscript.echo LEFT(UCASE(objFile.Name),3) 'szukane pierwsze trzy znaki początku nazwy pliku
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
