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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
| function GetFile (FileName)
If FileName<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject")
on error resume Next
Set FileStream = FS.OpenTextFile(FileName)
GetFile = FileStream.ReadAll
End If
End Function
function GetExtension (File)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetExtention = fso.GetExtensionName(File)
end function
'____________________________________________
Dim fso, f, f1, sf, fc, file, nomfichier, cpt, oFso, fo,AncienCpt, diffCpt
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("M:\VBS\test")
Set fc = f.Files
Set f = fso.GetFolder(f)
Set fc = f.Files
Set oFso = CreateObject("Scripting.FileSystemObject")
Set fo = oFso.OpenTextFile("M:\VBS\cpt.txt", ForReading)
while Not fo.AtEndOfStream
'wscript.echo fo.ReadLine
cpt= fo.ReadLine
AncienCpt = cpt
'wscript.echo cpt ' affichage du cpt avant incrémentation
Wend
fo.Close ' je ferme le fichier et le reouvre en-bas
For Each f2 in fc
file = f2 'lis un fichier txt
FileContents = GetFile(file)
if Len(month(now())) = 1 then
mois = "0" & month ((now()))
'wscript.echo "le jour du mois est inférieur à 10"
else
mois = month((now()))
End if
If (GetExtention(f2) = "edi") Then
datejour = year(now()) & mois & day(now())
partfic = split(f2.name,".")
f2.name = datejour & partfic(0)& "_" & cpt & ".edi"
cpt = cpt+1
'f2.move("D:\Stepcom\OUT\"& f2.name)
end if
Next
'wscript.echo "Terminé"
diffCpt = cpt - AncienCpt
'wscript.echo "la compteur a été incrémenté de : " & diffCpt & " points"
'wscript.echo "Il vaut actuellement : " & cpt & " points"
'-------------------------------------------------------------
'déclaration file system object
Dim x
'instanciation
Set x = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt = x.createTextFile("M:\VBS\cpt.txt",true) 'true=ecrase
Ftxt.writeline ("Le compteur est à :")
Ftxt.writeline (cpt)
Ftxt.Close
' FIN
' le fichier texte attaché et le "cpt.txt"
'_________________________________________________________________ |
Partager