Opération sur fichier txt II
Page 1 sur 1
Opération sur fichier txt II
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
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
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|