Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Office Excel a potom kliknite na kartu " Vývojár " . Kliknite na " makrá " zadajte " searchFile " pod " Názov makra " . Kliknite na " Vytvoriť " otvorte Visual Basic okno Microsoft 
 2 
 Zadajte nasledujúce pod " searchFile " deklarovať svoje názvy premenných : . 
 
 Dim FilePath As String 
 
 Dim currentFile As String Dim 
 
 xCntr As Integer 
 3 
 Zadajte nasledujúce definovať premenné , ktoré budete používať pre vyhľadávanie súborov Text : 
 
 FilePath = " C : . \\ * txt " 
 
 Edit " C : . \\ * txt " a zadajte inú cestu a príponu k hľadaniu iných súborov 
 4 
 typu . nasledovné sa dostať na prvý súbor nájdený v ceste : 
 
 currentFile = Dir ( FilePath ) 
 5 
 Zadajte nasledujúce prechádzať všetky súbory a zobrazí sa okno so správou , keď " myfile.txt " súbor nájdený : 
 
 robiť , keď currentFile < > " " 
 
 xCntr = xCntr + 1 
 
 Ak currentFile = " file.txt " Tak 
 
 MsgBox "Nájdený súbor ! " 
 
 End If 
 
 currentFile = Dir 
 
 Loop 
 6 
 Kliknite na " Microsoft Excel " okno potom vyberte " makrá . " Kliknite na tlačidlo " searchFile " , potom vyberte " Spustiť " pre spustenie makra a nájsť súbor .