Probléme VBSRésolu

Question

J'ai entré le script suivant en vbs _________________________________________________________________________________________________ Const ForReading 1, ForWriting 2, ForAppending = 8 t="Flico" fichier = InputBox("Entre les coordonnées du fichier cible.",t,"C:\Documents and Settings\Cédric\Mes documents\.txt",120,1) fichie = "C:\Documents and Settings\Cédric\Mes documents\CEDRIC\virus\flic.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set fic = fso.OpenTextFile(fichier, ForReading) Do While fic.AtEndOfStream <> True x=x+1 Lecture = fic.Readline date=CLng(Lecture) Dat(x-1)=date Loop For r=1 To 2 For a=1 To x y=y+1 For b=1 To x v=v+1 If Dat(y)=Dat(v) Then Set fich = fso.OpenTextFile(fichie, ForAppending) fich.WriteLine (y & "/" & Dat(y) & vbCrLf & v & "/" & Dat(v)) fich.Close End If Next Next Do While fic.AtEndOfStream n=n+1 Round(Date(n)) Loop Next ti="RESULTATS" Do While fich.AtEndOfStream <> True MsgBox fich.ReadLine,,ti Loop __________________________________________________________________________________________________ Or , si je l'active,il me dit que CLng n'est pas bon et que l'affectation "date" n'est pas correct. HE L P ! ! ! !

Dolphin Boy · Accepted Answer

Salut, date est un mot réservé en vb (en vbs aussi, je pense), tu ne peux donc pas l'utiliser comme variable.

Probléme VBS

1 réponse

Votre réponse

Discussions similaires