1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| On Error Resume Next
Dim stRep,oFSO,oFl,f,f1,folder,Taille,oF2
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
stRep = "d:\test\testlist"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Taille = oFSO.GetFolder(stRep).size
If Taille = 0 Then
'MsgBox "Dossier Vide"
Set f = oFSO.OpenTextFile("d:\test\log\vide.txt", ForWriting,true)
f.writeLine Now
If oFSO.FileExists ("d:\test\log\Dossiers.txt")Then
oFSO.DeleteFile "d:\test\log\Dossiers.txt",True
End If
If oFSO.FileExists ("d:\test\log\Fichiers.txt")Then
oFSO.DeleteFile "d:\test\log\Fichiers.txt",True
End If
wscript.Sleep 60000 ' durée en ms .. 60000 => 600 s
WshShell.Run("d:\test\Lanceur.cmd")
Else
For each oFl in oFSO.GetFolder(stRep).SubFolders
Set f = oFSO.CreateTextFile("d:\test\log\Dossiers.txt", ForWriting,true)
f.writeLine oFl.Name
Next
For each oF2 in oFSO.GetFolder(stRep).Files
Set f1 = oFSO.CreateTextFile("d:\test\log\Fichiers.txt", ForWriting,true)
f1.writeLine oF2.Name
Next
End If
wscript.Sleep 120000 ' durée en ms .. 120000 => 120 s
WshShell.Run("d:\test\Lanceur.cmd") |
Partager