Const ForReading = 1, ForWriting = 2, ForAppending = 8, OverwriteExisting = TRUE controllo = "" strPath = "\\nomeserver\condivisione$\percorso\Archivio\" ' tale cartella deve essere creata prima dell'esecuzione dello script cartella = "" file = "" segno = "" percorso = "" oggi = "" strName = "" dipart = "" strdipart = "" strComputer = "specifica il server dal quale viene eseguito lo script" 'messaggio = "Per il momento non sono presenti nuovi files." 'On error resume next ' Legge, formatta e scrive la Data Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") ' Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime") ' For Each objItem in colItems oggi = oggi & "Data: " & objItem.Day oggi = oggi & "/" & objItem.Month oggi = oggi & "/" & objItem.Year oggi = oggi & " - Ora: " & objItem.Hour oggi = oggi & "." & objItem.Minute oggi = oggi & "." & objItem.Second Next ' Set objFSO = CreateObject("Scripting.FileSystemObject") ' istruzione di azzeramento del file ' Set objTextFile = objFSO.OpenTextFile("\\nomeserver\condivisione$\percorso\Log\Log_Operazioni.txt", ForWriting, True) ' objTextFile.close Set objTextFile = objFSO.OpenTextFile("\\nomeserver\condivisione$\percorso\Log\Log_Operazioni.txt", ForAppending, True) ' Set objtmp = CreateObject("Scripting.FileSystemObject") ' objTextFile.WriteLine oggi objTextFile.WriteLine "Inizio elenco files processati e spostati per l'invio automatico." ' ShowSubfolders objFSO.GetFolder("specifica la cartella da dove iniziare la ricerca") Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders dipart = "" file = "" percorso = Subfolder.Path if right(percorso, 8) = "specifica la cartella che deve essere scansita" then 'objTextFile.WriteLine percorso 'Legge cartelle Set colFileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='" & percorso & "'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In colFileList segno = "" strName = objFile.FileName ' objTextFile.WriteLine subfolder.Path 'objTextFile.WriteLine strName file = subfolder.Path & "\" & strName & ".DST" 'objTextFile.WriteLine file If strName <> "" Then dipart = mid(strName, 14, 5) 'objTextFile.WriteLine dipart If strName <> "" Then segno = mid(strName, 23, 1) 'objTextFile.WriteLine segno cartella = "\\nomeserver\condivisione$\percorso\" & dipart & "\" 'objTextFile.WriteLine cartella 'objTextFile.WriteLine file strFilePath = file 'objTextFile.WriteLine strFilePath 'objTextFile.WriteLine strPath ' ' verifica se la cartella esiste If objFSO.FolderExists(cartella) Then Set objFolder = objFSO.GetFolder(cartella) 'objTextFile.WriteLine "La cartella esiste già" Else ' creare la cartella Set objFolder = objFSO.CreateFolder(cartella) 'objTextFile.WriteLine "Ho creato la cartella" End If ' ' routine di copia files su cartella If segno = "_" Then ' copiare il file per inviarlo objtmp.CopyFile strFilePath,strPath,OverwriteExisting End If ' routine di spostamento files su cartella backup \\nomeserver\condivisione$\percorso CAMBIO PATH ASSOLUTO ' inizio = left(strFilePath, 3) 'objTextFile.WriteLine inizio statico = mid(strFilePath, 4, 80) 'objTextFile.WriteLine statico insieme = "\\nomeserver\condivisione$\percorso\" & statico objTextFile.WriteLine insieme ' ' ' objtmp.MoveFile insieme,cartella 'objTextFile.WriteLine cartella 'objTextFile.WriteLine file 'objTextFile.WriteLine strFilePath 'objTextFile.WriteLine insieme 'objTextFile.WriteLine "Fine dato singolo file" Next ' If strName <> "" Then strdipart = strdipart & " - " & dipart ' strName = "" end if ShowSubFolders Subfolder Next ' if strdipart <> "" then messaggio = "ATTENZIONE!!! |^_^| Sono presenti nuovi files per questi elementi: " & strdipart End Sub ' ' objTextFile.WriteLine messaggio ' Wscript.Echo messaggio objTextFile.WriteLine "Fine elenco files processati e spostati per l'invio automatico." objTextFile.WriteLine "------------------------------------------------------------------" objTextFile.close ' cartella = "" file = "" segno = "" percorso = "" oggi = "" strName = "" dipart = "" strdipart = "" strComputer = "" messaggio = "" |