[vb6] - esistenza dei file

[buba88]

raga ci dovrebbe essere una funzione che ti dice se esiste o meno un determinato file, purtropppo nn riesco a ritrovare la guida in cui ho letto di questa funzione qualcuno di voi mi sa dire qualcosa

[ladyBlu]

cerca Dir() sulla guida di VB

[twister_has_you]

passa la path del file a questa funzione
e la funzione FileExist sarà True se il file esiste, False se non esiste

Function FileExist(FileName As String) As Boolean
    On Error GoTo NotExist
    'Se non viene aperto (errore) in file non esiste
    Close #1
    Open FileName For Input As #1
    Close #1
    FileExist = True
    'Se viene aperto il file esiste
    Exit Function
NotExist:
    FileExist = False
End Function

[i'mshady]

io faccio sempre così:

Dim A

set a=createobject("Scripting.FileSystemObject")
if a.FileExists("C:\documento.txt")=True then
msgbox "Il file esiste.",,""
else
msgbox "Il file non esiste.",,""
end if

l'ho trovato sulla guida di access che ho usato per mesi aspettando MSDN