Πώς να δημιουργήσετε ένα αρχείο σε VBScript

VBScript είναι ένα ελαφρύ γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft . Είναι πολύ χρήσιμο να γνωρίζουμε πώς να το πρόγραμμα σε VBScript , αφού οι διερμηνείς της για τη γλώσσα ενσωματωμένα σε όλα τα λειτουργικά συστήματα της Microsoft . Δεν απαιτούνται ειδικά εργαλεία προγραμματισμού που απαιτείται για να τρέξει ή να γράψουν κώδικα σε VBScript . Αυτή η γλώσσα μπορεί να χρησιμοποιηθεί client-side ή να προστεθεί σε σελίδες Web . Οδηγίες
Η

1 Κάντε δεξί κλικ στην Εξερεύνηση των Windows , επιλέξτε "New " από το αναδυόμενο μενού και στη συνέχεια κάντε κλικ στο " Έγγραφο κειμένου " στοιχείο μενού για να δημιουργήσετε ένα αρχείο κειμένου .

2

Ανοίξτε το νέο αρχείο για επεξεργασία . Αυτό θα είναι το εμπορευματοκιβώτιο για όλο τον κώδικα VBScript που γράφετε . Σε κάθε βήμα παρακάτω , θα δείτε αρκετές γραμμές κώδικα με ένα απλό αγγλική περιγραφή του τι κάνουν . Όταν βάζετε όλα αυτά γραμμές κώδικα μαζί , μπορείτε να καταλήξετε με μια δέσμη ενεργειών για να δημιουργήσετε ένα αρχείο κειμένου .
Εικόνων 3

Δημιουργήστε μια μεταβλητή για το αντικείμενο του συστήματος αρχείων και ένα στιγμιότυπο ( που είναι σε ένα νέο στιγμιότυπο του αντικειμένου ) . Στο VBScript μπορείτε να δημιουργήσετε μεταβλητές " διαστάσεων " τους με το "Dim " εντολή . Σύνθετες μεταβλητές ( αυτές που δεν είναι χορδές , ακέραιοι ή booleans ) πρέπει να αρχικοποιείται για να μπορέσετε να τα χρησιμοποιήσετε

Αντιγράψτε τον παρακάτω κώδικα στο αρχείο κειμένου σας : . Δημ. objFSO « Όπως FileSystemObjectSet objFSO = CreateObject ( " Scripting . FileSystemObject " )
Η 4

Προσθέστε μια μεταβλητή συμβολοσειράς για την διαδρομή του καταλόγου όπου θέλετε να τοποθετήσετε το αρχείο και να το θέσει στην επιθυμητή θέση .

Αντιγράψτε τον παρακάτω κώδικα στο κείμενο σας αρχείο : Dim strDirectory « Όπως StringstrDirectory = " C : \\ NewDirectory "
5

Βεβαιωθείτε ότι υπάρχει ο φάκελος κατάλογο . Εάν ο κατάλογος δεν υπάρχει, τότε να την δημιουργήσετε χρησιμοποιώντας το αντικείμενο του συστήματος αρχείων

Αντιγράψτε τον παρακάτω κώδικα στο αρχείο κειμένου σας : . Δημ. objDirectory « Όπως Objectif objFSO.FolderExists ( strDirectory ) ThenSet objDirectory = objFSO.GetFolder ( strDirectory ) ElseSet objDirectory = objFSO.CreateFolder ( strDirectory ) End If
Η 6

Κάντε μια μεταβλητή συμβολοσειράς για το όνομα του αρχείου και να το θέσει σε μια κατάλληλη τιμή .

Αντιγράψτε τον παρακάτω κώδικα σε σας αρχείο κειμένου : Dim strFile « Όπως StringstrFile = " NEWFILE.TXT "
Η 7

Δημιουργήστε μια μεταβλητή για το αρχείο κειμένου και ένα στιγμιότυπο . Η μέθοδος CreateTextFile έχει μια προαιρετική παράμετρο για την αντικατάσταση του αρχείου που υπάρχει ήδη

Αντιγράψτε τον παρακάτω κώδικα στο αρχείο κειμένου σας : . Δημ. objTextFile «Όσον ObjectDim blnOverwrite « Όπως BooleanblnOverwrite = TrueSet objTextFile = objFSO.CreateTextFile ( strDirectory & "\\" & strFile , blnOverwrite )
8

Γράψτε τα δεδομένα στο νεοσύστατο αρχείο με τον παρακάτω κώδικα . Υπάρχουν δύο μέθοδοι για την εγγραφή σε αρχεία , "Write" και " WriteLine . " Η τελευταία μέθοδος περιλαμβάνει αυτόματα μια νέα γραμμή χαρακτήρα για εσάς , ενώ ο πρώην προσθέτει μόνο τα δεδομένα σε ό, τι είναι ήδη παρούσα

Αντιγράψτε τον παρακάτω κώδικα στο αρχείο κειμένου σας : . ObjTextFile.Write ( "This is" ) objTextFile . WriteLine ( « ένα νέο αρχείο κειμένου " ) " Αυτό έχει ως αποτέλεσμα το string" Αυτό είναι ένα νέο αρχείο κειμένου "
Η 9

Κλείστε το αρχείο με κωδικό και σωστά απελευθερώσει όλα τα αντικείμενα .

αντιγράψτε τον παρακάτω κώδικα στο αρχείο κειμένου σας : objTextFile.CloseSet objTextFile = NothingSet objDirectory = NothingSet objFSO = Τίποτα

10

Εκτός από όλα του κώδικα που δημιουργήσατε στα προηγούμενα βήματα στο αρχείο κειμένου στην αρχή και στη συνέχεια, κλείστε το αρχείο . Μετονομάστε το αρχείο με " . Vbs " αντί του " . Txt " κάνοντας δεξί κλικ στο αρχείο και επιλέγοντας " Μετονομασία " από το αναδυόμενο μενού . Κάντε διπλό κλικ στο αρχείο για να εκτελέσει τον κώδικα .
Η
εικόνων