Oppure

Loading
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 ?:hail:
aaa
09/02/10 18:30
EsisteFile = EsisteFile("c:Questoèilmiofile.csv";)

vorrai dire
EsisteFile = EsisteFile("c:\Questoèilmiofile.csv")
09/02/10 18:35
nessuno
Non puoi chiamare la funzione e la variabile nello stesso modo (EsisteFile) ...

Chiama la variabile in un altro modo ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.