09/02/10 18:22
visualrenzo
Lo so che avete già risposto a questo quesito ma a me con il Vs suggerimento mi dice
errore di compilazione prevista matrice su
Private Sub EstariFileCsv_Click()
Dim EsisteFile As Boolean
EsisteFile = EsisteFile("c:Questoèilmiofile.csv"
ho scritto questo codice
Function EsisteFile(NomeFile As String) As Boolean
On Error Resume Next
EsisteFile = (GetAttr(NomeFile) And vbDirectory) = 0
End Function
e poi
Dim EsisteFile As Boolean
EsisteFile = EsisteFile("c:Questoèilmiofile.csv"
If EsisteFile = True Then
MsgBox "Il file esiste"
End If
If EsisteFile = False Then
MsgBox "Il file non esiste"
End If
quest' ultimo lo lancio da un pulsante forse sbaglio ?
errore di compilazione prevista matrice su
Private Sub EstariFileCsv_Click()
Dim EsisteFile As Boolean
EsisteFile = EsisteFile("c:Questoèilmiofile.csv"
ho scritto questo codice
Function EsisteFile(NomeFile As String) As Boolean
On Error Resume Next
EsisteFile = (GetAttr(NomeFile) And vbDirectory) = 0
End Function
e poi
Dim EsisteFile As Boolean
EsisteFile = EsisteFile("c:Questoèilmiofile.csv"
If EsisteFile = True Then
MsgBox "Il file esiste"
End If
If EsisteFile = False Then
MsgBox "Il file non esiste"
End If
quest' ultimo lo lancio da un pulsante forse sbaglio ?
aaa