Gribe fejl ved åbning af tekst-fil?

Dim fso, f, filespec

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = "D:\storage\Mail Enable\Config\Postoffices\" & strSite & "\LISTS\" & strName & ".tab"
Set f = fso.OpenTextFile(filespec,2)

if err.number <> 0 then
  Response.Write "Der er sket en fejl: " & err.number & "/" & err.description
end if

Du slår standard fejlhåndteringen til igen ved at kalde

On Error Goto 0

Ok, men jeg er ikke så glad for onError, kan man ikke bare checke om bibliotektet samt filen eksisterer inden scriptet forsøger at åbne den. Hvordan gør jeg det?

fso.FileExist(sti)

læs i øvrigt mere om FSO her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsobjFileSystem.asp

Takker - tryk svar :-)

kan du også fortælle mig, hvordan jeg tilføjer en værdi til slutningen af en tekst-fil?

Filen:
værdi1
værdi2
værdi3

Tilføjes:
værdi1

Resultat:
værdi1
værdi2
værdi3
værdi4

Velbekomme :)

Du skal åbne tekdtfilen "for appending", dvs. kaldet

Set f = fso.OpenTextFile(filespec,2)

skal ændres til

Set f = fso.OpenTextFile(filespec,8)

ok, og hvordan fylder jeg færdien - f.Write værdi?

fylder jeg færdien = fylder jeg Værdien IND

ja,

f.Write "værdien"

skulle gøre det

Takker :-) Sidste spg ;-)

Hvordan sletter jeg en enkelt værdi fra filen?

værdi1
værdi2
værdi3
værdi4

Slettes:
værdi2

Resultat:
værdi1
værdi3
værdi4

Lille fejl i din kode (hvis andre skulle kopiere det senere):

FileExist() = FileExists()

Ja, der skal være orden i sagerne :)

Umiddelbart ville jeg åben den originale fil for læsning og oprette en ny for skrivning, og så gennemløbe alle linier og skrive dem der skal gemmes over i den nye fil. Til sidst ville jeg så slette den orginale og omdøbe den nye til det den originale fil hed.

Alternativt kunne man indlæse hele filen i et array og lave noget manipulation af array'et og så gemme det igen, men med mindre du har brug for at det performer optimalt (med de givne muligheder), så er den første nok lettest...

Takker, kan man ikke bare indlæse hele indholdet af en fil og så bare lave en replace og så smide det tilbage igen?

Jo, hvis du ved hvad det er der skal udskiftes. TextStream-objektet har en metode der hedder ReadAll som læser alt på en gang. Noget i stil med:

set f = fso.OpenTextFile(sti,1)
strAll = f.ReadAll()
f.close

strAll = Replace(strAll, "værdi2" & vbCrLf, "")

set f = fso.CreateTextFile(sti,true)
f.Write strAll
f.close