Ontwikkelaars moeten controleren op het bestaan van een bestand voordat u probeert om het te manipuleren . Als een programmeur probeert een bestand dat niet aanwezig is gebruikt , kan een toepassing niet of het genereren van onnauwkeurige resultaten . VB6 , ook wel bekend als Visual Basic 6 , niet over een functie genaamd " Kijk eens of dit bestand bestaat . " Echter , het doet kun je de aanwezigheid van een bestand op een computer detecteren met behulp van een indirecte methode . Instructies
1 Start de VB6 applicatie en druk op " Ctrl " en " N " aan het "Project Nieuw" venster te openen . Kopen van 2 Dubbelklik op " Standard EXEC " om een nieuw project aan te maken . VB6 toont een leeg formulier in zijn venster bewerken .
3 Dubbelklik op het " Command " knop in de toolbox te plaatsen op het formulier .
4 < . p > klik met de rechtermuisknop op die knop en klik op " View code " om het venster code bekijken
5 Plaats de volgende code voor de " End Sub " verklaring die u ziet in de code :
Dim fileToCheck als Koord Dim FileExists
zoals Van Boole Dim naamDirectory
As String
Deze code definieert drie variabelen . De variabele " fileToCheck " houdt de naam van het bestand waarvan het bestaan dat u wilt detecteren . De variabele " Fileexists " houdt " Waar" of " false " naargelang het bestand bestaat . VB6 slaat directory naam van het bestand in de variabele genaamd " naamDirectory " als het bestand bestaat
Plaats 6 de volgende code onder de in de vorige stap vermeld code : . FileToCheck
= " C \\ : Bepaalde_map \\ somefile.txt " naamDirectory = Dir ( fileToCheck ) op
Als naamDirectory = " " dan FileExists
= False
Else < br FileExists > = True End
Als MsgBox FileExists
Vervang " C : \\ Bepaalde_map \\ somefile.txt " met het volledige pad naam van het bestand dat u wilt controleren . Bijvoorbeeld , als u wilt zien of een bestand met de naam " music.jpg " bestaat in een map met de naam " Media " op uw " D " drive , vervang " C : \\ Bepaalde_map \\ somefile.txt " met " D : \\ Media \\ music.jpg . " De volgende regel code voert de functie " Dir " . Het onderzoekt de waarde van " fileToCheck . " Als de " Dir " commando vindt het opgegeven bestand , slaat haar directory naam in de variabele genaamd " naamDirectory . " Anders , het slaat een lege waarde .
Druk op "F5 " 7 op de toepassing uit te voeren . Wanneer het formulier wordt weergegeven , klikt u op de knop . De code wordt uitgevoerd , en een bericht met " True " als het bestand dat u gecontroleerd op bestaat. Als dat bestand niet bestaat , het berichtvenster verschijnt " False ".
|
