Udviklere bør kontrollere for eksistensen af en fil, inden du forsøger at manipulere den. Hvis en programmør forsøger at bruge en fil, der ikke er til stede , kan en ansøgning mislykkes eller generere unøjagtige resultater . VB6 , også kendt som Visual Basic 6 , ikke har en funktion med navnet " Se om denne fil eksisterer." Men det gør det muligt at påvise tilstedeværelsen af enhver fil på en computer ved hjælp af en indirekte metode . Instruktioner
1
Start VB6 program og tryk på " Ctrl " og " N" for at åbne " Nyt projekt " vinduet.
2
Dobbeltklik på " Standard EXEC " at oprette et nyt projekt. VB6 viser en tom formular i sin redigering vinduet.
3
Dobbeltklik på "Command "-knappen i værktøjskassen for at placere den på formularen.
4 < . p> Højreklik på denne knap , og klik på " View Code " for at se koden vinduet
5
Placer følgende kode før " End Sub " erklæring , som du ser i koden : Hej
Dim fileToCheck As String
Dim Fileexists As Boolean
Dim biblioteksnavn As String
Denne kode definerer tre variabler. Den " fileToCheck " variable holder navnet på den fil, hvis eksistens , du ønsker at opdage. Den " Fileexists " variable holder "Sand " eller " False ", afhængigt af om filen eksisterer. VB6 gemmer filens mappe navn i variabel med navnet " biblioteksnavn ", hvis filen findes
6
Placer følgende kode under koden anført i forrige trin : .
FileToCheck = " C \\ : SomeFolder \\ SomeFile.txt "
biblioteksnavn = Dir ( fileToCheck )
p Hvis biblioteksnavn =" "så
Fileexists = False
Else < br >
Fileexists = Sand
End If
MsgBox Fileexists
Erstat " C: \\ SomeFolder \\ SomeFile.txt " med den fulde sti navnet på den fil, du ønsker at tjekke . For eksempel, hvis du ønsker at se, om en fil med navnet " music.jpg " eksisterer i en mappe kaldet " Media " på din "D " drev erstatte "C: \\ SomeFolder \\ SomeFile.txt " med " D: \\ Media \\ music.jpg . " Den næste linje kode udfører " Dir "-funktionen . Den undersøger værdien " fileToCheck ". Hvis " Dir " kommando finder den angivne fil , det gemmer sit bibliotek navn i variabel med navnet " biblioteksnavn ". Ellers det gemmer en tom værdi.
7
Tryk på " F5 " for at køre programmet. Når formularen vises, klik på knappen. Koden kører , og en besked boks viser " Sand ", hvis den fil, du kontrolleres for eksisterer. Hvis denne fil ikke findes , meddelelsesfeltet viser " False ".