Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Word .
2
Kliknite na " Nástroje " , " Makro " a potom " Visual Basic " pre otvorenie programovacie prostredie VBA .
Sims 3
Kliknite na " Vložiť " a " modul " .
4
Tento kód VBA dáva príklad , ako použiť funkciu Dir požiadať všetky súbory umiestnené v jednom adresári , C : disk . Postup ukladá jednotlivé názvy súborov v " AllFiles " premenné a potom zobrazí tento v okne so správou pre užívateľov . Zadajte alebo prilepte nasledujúci blok kódu v okne modulu:
Sub ShowFiles ( )
Dim NextFile As String Dim
AllFiles As String
AllFiles = " "
NextFile = Dir ( " C : \\ " , 0 )
Kým NextFile < > " "
AllFiles = AllFiles & Chr ( 13 ) & NextFile
NextFile = Dir
Wendy
MsgBox AllFiles
End Sub
5
Kliknutím na tlačidlo " Súbor " a potom " Uložiť " uložte svoju prácu .
6
Stlačte " F5 " na vašej klávesnici spustiť program . Mali by ste vidieť okno so správou so zoznamom mien súborov na vašom disku C :
.