Avviare l'applicazione VB6 e premere il tasto " Ctrl " e "N" per aprire la finestra "Nuovo progetto" . 
 2 
 doppio clic su " standard EXEC " per creare un nuovo progetto . VB6 visualizza una forma vuota nella finestra di modifica . 
 3 
 doppio clic sul tasto " Command " che si trova nella casella degli strumenti per posizionarlo sul modulo . 
 4 < . p > Fare clic con il pulsante e fare clic su " Visualizza codice " per visualizzare la finestra del codice 
 5 
 Inserire il codice seguente prima dell'istruzione " End Sub " che si vede nel codice : 
 
 Dim fileToCheck As String Dim 
 
 FileExists come booleano 
 
 Dim directoryName As String 
 
 Questo codice definisce tre variabili . La variabile " fileToCheck " contiene il nome del file , la cui esistenza si desidera rilevare. La variabile " FileExists " tiene " True" o "False" a seconda se il file esiste . VB6 memorizza il nome della directory del file nella variabile denominata " directoryName " se il file esiste 
 6 
 Inserire il codice riportato di seguito il codice elencato nel passaggio precedente : . 
 
 FileToCheck = " C \\ : SomeFolder \\ somefile.txt " 
 
directoryName = Dir ( fileToCheck ) per
 directoryName =" "allora 
 
 FileExists = False 
 
Else < br
 FileExists > = True 
 
 End If 
 
 FileExists MsgBox 
 
 sostituire " C : \\ Cartella \\ somefile.txt " con il percorso completo del file che si voler controllare . Per esempio, se si desidera vedere se un file di nome " music.jpg " esiste in una cartella denominata "Media " sul disco "D " , sostituire " C : \\ Cartella \\ somefile.txt " con " D : \\ Media \\ music.jpg . " La seguente riga di codice esegue la funzione " Dir " . Esamina il valore di " fileToCheck ". Se il comando "dir " trova il file specificato , memorizza il nome della directory nella variabile denominata " directoryName . " In caso contrario , si memorizza un valore vuoto . 
 7 
 Premere " F5 " per eseguire l'applicazione . Quando viene visualizzato il form , fare clic sul pulsante . Il codice viene eseguito , e una finestra di messaggio viene visualizzato "True" se il file è stata selezionata per l' esistente . Se questo file non esiste , la finestra di messaggio viene visualizzato " False". 
 
              
Programmazione © www.354353.com