Base de connaissance
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -17%
Casque de réalité virtuelle Meta Quest 2 ...
Voir le deal
249.99 €

Opération sur fichier txt II

Aller en bas

Opération sur fichier txt II Empty Opération sur fichier txt II

Message  Admin 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

http://programming.formyjob.net

Revenir en haut Aller en bas

Revenir en haut


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