Hvordan sjekke om en fil eksisterer i VB6

Hvordan sjekke om en fil eksisterer i VB6


Utviklere bør sjekke for eksistensen av en fil før du forsøker å manipulere den. Hvis en programmerer forsøker å bruke en fil som ikke er til stede, kan et program mislykkes eller generere unøyaktige resultater. VB6, også kjent som Visual Basic 6, ikke har en funksjon som heter "Se om denne filen eksisterer." Men det betyr at du kan oppdage tilstedeværelsen av en hvilken som helst fil på en datamaskin ved hjelp av en indirekte metode.

Bruksanvisning

1 Start VB6 programmet og trykk "Ctrl" og "N" for å åpne "New Project" -vinduet.

2 Dobbeltklikk på "Standard EXEC" for å opprette et nytt prosjekt. VB6 viser en tom form i sin redigeringsvinduet.

3 Dobbeltklikk på "Command" -knappen som ligger i verktøykassen for å plassere den på skjemaet.

4 Høyreklikk på den knappen, og klikk "Vis kode" for å vise koden vinduet.

5 Plasser følgende kode før "End Sub" statement som du ser i koden:

Dim fileToCheck As String

Dim Fileexists Som boolsk

Dim Katalog As String

Denne koden definerer tre variabler. Den "fileToCheck" variable holder navnet på filen hvis eksistens du ønsker å oppdage. Den "Fileexists" variable holder «True" eller "False", avhengig av om filen finnes. VB6 lagrer filens katalognavn i variabelen som heter "Katalog" hvis filen finnes.

6 Plasser følgende kode under Kodene i forrige trinn:

fileToCheck = "C \: SomeFolder \ SomeFile.txt"

Katalog = Dir (fileToCheck)

Hvis Katalog = "" Then

Fileexists = False

Ellers

Fileexists = True

Slutt om

MsgBox Fileexists

Erstatt "C: \ SomeFolder \ SomeFile.txt" med den fullstendige banen navnet på filen du ønsker å sjekke. For eksempel, hvis du ønsker å se om en fil som heter "music.jpg" finnes i en mappe som heter "Media" på "D" stasjon, erstatte "C: \ SomeFolder \ SomeFile.txt" med "D: \ Media \ music.jpg. " Den neste kodelinje utfører "dir" funksjon. Den undersøker verdien av "fileToCheck." Hvis "dir" kommandoen finner den angitte filen, lagrer den sin katalognavn i variabelen som heter "Katalog." Ellers den lagrer en tom verdi.

7 Trykk "F5" for å kjøre programmet. Når skjemaet vises, klikker du på knappen. Koden kjører, og en meldingsboks viser "Riktig" om filen du sjekket for eksisterer. Hvis denne filen ikke finnes, viser meldingsboks "False".

Hint

  • Ved å sette en boolsk variabel som "Fileexists," du gjør som variabel tilgjengelig for andre moduler i programmet. Disse modulene kan deretter bestemme løpet av handlingen til å ta avhengig av eksistensen eller fraværet av en fil.