Pourrais-je avoir les directives de gestion d'un fichier
en vbScript, tels que sous-citées (dans le principe), je
donne l'exemple en VB, je vous remercie d'avoir l'amabilité
de me mettre en vbScript (je suis totalement incompétent et
débutant en la matière):
' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--
Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!
