Grazie mille davvero, Allora ho applicato il tuo codice nella riga dopo aver specificato il percorso di rete su cui interagire e
Function FindPdfToFolder(path,Filefine)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFSO, objLog, strText
Set objLog = objFSO.OpenTextFile ("C:\Documents and Settings\Administrator\Desktop\prova.txt", 8, TRUE )
percorso=path
objLog.WriteLine("Start FindPDfToFolder" & path )
poi subito dopo le righe di codice che prendono il path come percorso per controllare file e cartelle
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(path) 'Qui punto alla directory specificata
Set oFiles = oFolder.Files ' Questi sono i files
set oFolders =oFolder.Subfolders 'queste sono le sottocartelle
Set wshshell=CreateObject("wscript.shell")
objLog.WriteLine("siamo a ofolder.subfolder")
Quindi se eseguo lo script col doppio click tutti i messaggio vengono salvati sul file di log :
Start FindPDfToFolder\PC\cartella ecc ecc
siamo a ofolder.subfolder
Start FindPDfToFolder\\PC\cartella ecc ecc
siamo a ofolder.subfolder
Start FindPDfToFolder\\PC\cartella ecc ecc
siamo a ofolder.subfolder
Start FindPDfToFolder\\PC\cartella ecc ecc
siamo a ofolder.subfolder
Start FindPDfToFolder\\PC\cartella ecc ecc
siamo a ofolder.subfolder
Start ExportDaElaborare
Start SendMail
Mentre se faccio partire lo stesso script dalle operazioni pianificate nel file di log viene salvato solo la prima riga ovvero :
Start FindPDfToFolder\PC\cartella ecc ecc
Come posso risolvere questo problema assurdo ???
Ps meriti una statua in marmo nero alta 30 metri XD