Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Word .
2
Kliknite na " Nástroje " , vyberte " makro " a potom kliknite na tlačidlo " Visual Basic " . Tým sa otvorí programovacie prostredie VBA .
3
Kliknite na " Vložiť " a vyberte " modul " .
4
Zadajte alebo prilepte nasledujúci kód blok okno modulu :
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib " Imagehlp.dll " ( byVal lpPath As String ) As Boolean
funkcie MkDirEx ( sPathToCreate As String ) As Boolean
On Error GoTo ErrFailed
MkDirEx = MakeSureDirectoryPathExists ( sPathToCreate )
Exit Function
ErrFailed :
Debug.Print Err.Description
MkDirEx = False
End Function
Sub Test ( )
Ak MkDirEx ( " C : \\ Test \\ ak \\ it \\ Vytvorené \\ to \\ Adresár \\ štruktúra " ) Potom
MsgBox " Vytvorené adresárová štruktúra "
End If
End Sub
predchádzajúcej kód používa volanie API a VBA kód vytvorenie priečinka na jednotke C : . Ak spustíte tento kód , budete mať túto cestu k adresáru na pevnom disku : C : \\ Test \\ ak \\ it \\ Vytvorené \\ Táto \\ Directory \\ Štruktúra
5
Kliknutím na tlačidlo " Súbor " a vyberte " Uložiť " uložte svoju prácu .
6
Stlačením tlačidla " F5 " pre spustenie programu .