1 Ανοίξτε το Notepad . Κάντε κλικ στο μενού των Windows "Start" και πληκτρολογήστε " σημειωματάριο " στο πλαίσιο αναζήτησης . Επιλέξτε Σημειωματάριο από τα αποτελέσματα αναζήτησης . 2
Δημιουργήστε ένα νέο αρχείο στο Σημειωματάριο . Πληκτρολογήστε μερικούς τυχαία γράμματα στο αρχείο και να το αποθηκεύσετε ως " C : \\ Temp \\ test.txt " . Αυτό το αρχείο θα πρέπει να χρησιμοποιηθούν για να δείξουν τον κώδικα VBScript
εικόνων 3
Δημιουργήστε ένα άλλο νέο έγγραφο στο Σημειωματάριο και να αποθηκεύσετε αυτό το αρχείο ως " C : \\ Temp \\ FileCheck.vbs " . . " . Vbs " προσθέτοντας μια επέκταση σε ένα αρχείο κειμένου δημιουργεί ένα εκτελέσιμο αρχείο VBScript σε έναν υπολογιστή με Windows
Η
4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο έγγραφο Σημειωματάριο σας : .
Option Explicit
« Set DimensionDIM FSO
« Set ObjectSet FSO = CreateObject ( " Scripting.FileSystemObject " )
« Δημιουργία ConditionIf ( fso.FileExists ( " C : \\ Temp \\ test.txt " ) ) Then'Alert UserWScript.Echo ( " Το αρχείο υπάρχει ! " ) WScript.Quit ( ) Else'Alert UserWScript.Echo ( " Το αρχείο δεν υπάρχει ! " ) End If
' έξοδος ScriptWScript.Quit ( )
5
Αποθηκεύστε το αρχείο VBScript που μόλις δημιουργήσατε και Σημειωματάριο εξόδου .
Η 6
Μεταβείτε στο φάκελο που περιέχει το αρχείο VBScript και κάντε διπλό κλικ στο " FileCheck.vbs " . Ένα πλαίσιο μηνύματος θα πρέπει να εμφανιστεί επιβεβαιώνει : " Το αρχείο υπάρχει ! " Επιλέξτε το "OK " για να κλείσετε το παράθυρο του μηνύματος
Η 7
Μετονομασία ή διαγραφή του "C: \\ Temp \\ test.txt " το αρχείο. που δημιουργήσατε στο Βήμα 1 ? στη συνέχεια , κάντε διπλό κλικ στο " FileCheck.vbs " script ξανά . Αυτή τη φορά , το καθορισμένο αρχείο δεν υπάρχει και θα δείτε ένα μήνυμα διακηρύσσοντας , " Το αρχείο δεν υπάρχει ! " Η Αν - Τότε - Else δήλωση στον κώδικά σας VBScript εκτελεί τον έλεγχο και σας ειδοποιεί για τα αποτελέσματα . Επιλέξτε το "OK " για να κλείσετε το παράθυρο του μηνύματος .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα