1 Ανοίξτε το Microsoft Word. 2
Κάντε κλικ στο " Εργαλεία ", επιλέξτε " Macro " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Αυτό θα ανοίξει το περιβάλλον προγραμματισμού VBA .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή" και επιλέξτε " Ενότητα ".
Η 4
Πληκτρολογήστε ή επικολλήστε τον ακόλουθο τμήμα κώδικα στο παράθυρο Ενότητα :
Option Explicit Private
MakeSureDirectoryPathExists Λειτουργία Declare Lib " IMAGEHLP.DLL " ( ByVal lpPath Όπως String ) Όπως Boolean
Λειτουργία MkDirEx ( sPathToCreate Όπως String ) Όπως Boolean
On Error GoTo ErrFailed
MkDirEx = MakeSureDirectoryPathExists ( sPathToCreate )
Λειτουργία Έξοδος
ErrFailed :
Debug.Print Err.Description
MkDirEx = False
End Function
Sub Test ( )
Εάν MkDirEx ( " C : \\ Test \\ Αν \\ Η \\ Δημιουργήθηκε \\ Αυτό \\ Κατάλογος \\ δομή ") Στη συνέχεια
MsgBox " Δημιουργήθηκε δομή καταλόγου "
End If
End Sub
Η παραπάνω κώδικα χρησιμοποιεί κλήσεις API και κώδικα VBA δημιουργήσετε φακέλους στο δίσκο σας C . Εάν εκτελέσετε αυτόν τον κώδικα , θα έχετε αυτό το μονοπάτι κατάλογο στον σκληρό σας δίσκο : C : \\ Test \\ Αν \\ Η \\ Δημιουργήθηκε \\ αυτόν τον κατάλογο \\ \\ Δομή
5
Κάντε κλικ στο " Αρχείο" και στη συνέχεια επιλέξτε " Αποθήκευση" για να αποθηκεύσετε την εργασία σας .
Η
6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα