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