Newsgroup: it.comp.lang.visual-basic
Titolo: Controllare se esiste un file

Ciao a tutti vorrei chiedere se è possibile controllare se esiste un file. 
Un  qualche comando per eseguire queste operazioni (il controllo 
dell'esistenza di un file)... So non ne sono uscito fuori perchè per me è 
molto difficele... NON so per voi? 

 possibile controllare se esiste un file.
Public Function FileExists(ByVal FileName As String) As Boolean
    On Error Resume Next
    FileExists = (LenB(Dir$(FileName)) <> 0)
End Function
hth,
Lokar
P.S. In alternativa puoi usare la Microsoft Scripting Library, oggetto 
FileSystemObject, metodo FileExists. Ma l'uso di questa libreria e' 
altamente sconsigliato =) 

Giancky ha scritto:

di uso generale
Option Explicit
' costanti per verifica esistenza file
Private Const INVALID_HANDLE = -1
Private Const MAX_PATH = 260
Private Type FILETIME
     dwLowDateTime As Long
     dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
     dwFileAttributes As Long
     ftCreationTime As FILETIME
     ftLastAccessTime As FILETIME
     ftLastWriteTime As FILETIME
     nFileSizeHigh As Long
     nFileSizeLow As Long
     dwReserved0 As Long
     dwReserved1 As Long
     cFileName As String * MAX_PATH
     cAlternate As String * 14
End Type
Private Declare Function FindClose Lib "Kernel32" (ByVal hFindFile As 
Long) As Long
Private Declare Function FindFirstFile Lib "Kernel32" Alias 
"FindFirstFileA" (ByVal lpFileName As String, ByRef lpFindFileData As 
WIN32_FIND_DATA) As Long
Public Function FileExists(ByVal a_FullPathName As String) As Boolean
     If (Len(a_FullPathName) = 0) Then Exit Function
     Dim hFile As Long, wfd As WIN32_FIND_DATA
     hFile = FindFirstFile(a_FullPathName, wfd)
     If (hFile = INVALID_HANDLE) Then Exit Function
     FindClose (hFile)
     FileExists = True
End Function    '// FileExists
ciao,roby

 ha scritto nel messaggio 
news:5Wfzf.36949$av6....@tornado.fastwebnet.it...

Spero per te che, almeno per le prossime volte, non sia troppo difficile 
fare una ricerca nei vecchi post usando google gruppi!
La domanda postata da te è stata fatta migliaia di volte.
Ciao, Vincenzo 

 ha
scritto:

Io uso sempre GetFileAttributes, che oltretutto non fa cose strane se ad esempio
il file è in A: e non c'è il disco
______________________
Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA"
(ByVal lpFileName As String) As Long
Dim VisFile as String
VisFile="C:\pippo.txt"
 If GetFileAttributes(VisFile) < 0 Then MsgBox "Il file non esiste!",
vbInformation
______________________
In caso di errore, la funzione ritorna 0, se invece il file di cui si
vuol conoscere il tipo non viene trovato la funzione ritorna -1.
Altrimenti il valore ritornato, sarà uno o più di uno dei seguenti
flags:
FILE_ATTRIBUTE_ARCHIVE = &H20 Un file di archivio (la maggior parte
dei files).
FILE_ATTRIBUTE_COMPRESSED = &H800 Un file in un drive o in una
directori compressa.
FILE_ATTRIBUTE_DIRECTORY = &H10 Una directory invece di un file.
FILE_ATTRIBUTE_HIDDEN = &H2 File nascosto.
FILE_ATTRIBUTE_NORMAL = &H80 File senza attributi.
FILE_ATTRIBUTE_READONLY = &H1 File di sola lettura.
FILE_ATTRIBUTE_SYSTEM = &H4 File di sistema (lo usa solo il sistema
operativo) 
--
ciao
  Stefano