[VB] Hvordan sjekke om filen finnes ?

[tKila]

Holder på å fullføre et lite program, men står fast ved at jeg vil den skal sjekke om filen finnes, så gi alternativ om å overskrive eller bytte navn.

 

Dette gjelder en enkel .txt fil som er en rapport.

 

Slik åpner jeg for skriving:

 

Open "c:Rapporter" & provenr & ".txt" For Output As #1

 

Print #1, "R A P P O R T "

Print #1, "---------------------------------------------------"

Print #1, "Rapport generert " & Date & " Klokken " & Time

Print #1, "---------------------------------------------------"

............osv

[BBC]

Se på FileExist() funksjonen i VB.

[Rep]

Du kan bruke Dir funksjonen, her er et lite eksempel:

 

   If Dir(filnavn, vbArchive + vbNormal + vbSystem + vbReadOnly + vbHidden) <> "" Then

       MsgBox "Filen eksisterer..."

   Else

       MsgBox "Filen eksisterer ikke..."

   End If