Opération sur fichier txt II

Voir le sujet précédent Voir le sujet suivant Aller en bas

Opération sur fichier txt II

Message  Admin le Mer 11 Fév - 13:39

Const ForReading = 1
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile _
("C:\Scripts\Computers.txt", ForReading)
strWordList = objFile.ReadAll
objFile.Close

strSearchWord = "atl-dc-99" & vbCrLf

If InStr(strWordList, strSearchWord) = 0 Then
Set objFile = objFSO.OpenTextFile _
("C:\Scripts\Computers.txt ", ForAppending)
objFile.WriteLine "atl-dc-99"
objFile.Close
End If

Admin
Admin

Nombre de messages : 45
Date d'inscription : 20/01/2009

Voir le profil de l'utilisateur http://programming.formyjob.net

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum