Δημιουργήστε ένα αρχείο κειμένου χρησιμοποιώντας το ακόλουθο όνομα και τη θέση : 
 
 " C : \\ Temp \\ TextToRead.txt " 2 
 
 Open και εκτελέστε το πρόγραμμα Notepad . " . Σημειωματάριο" Κάντε κλικ στο κουμπί " Start" στην επιφάνεια εργασίας των Windows , κάντε κλικ στο κουμπί " Όλα τα προγράμματα ", στη συνέχεια, επιλέξτε " εξαρτήματα" και κάντε κλικ στο 
 εικόνων 3 
 Αντιγράψτε και Επικολλήστε τον ακόλουθο στο Σημειωματάριο : 
 
 Option Explicit 
 
 Const conForReading = 1 
 
 ' Δήλωση μεταβλητών 
 
 Dim objFSO , objReadFile , το περιεχόμενο 
 
« Set Αντικείμενα < br >
 Set objFSO = CreateObject ( " Scripting.FileSystemObject " ) 
 
 Σετ objReadFile = objFSO.OpenTextFile ( " C : \\ Temp \\ TextToRead.txt " , 1 , False ) 
 
 » Διαβάστε τα περιεχόμενα του αρχείου 
 
 περιεχόμενο = objReadFile.ReadAll 
 
 'Κλείσιμο του αρχείου 
 
 objReadFile.close 
 
 » Εμφάνιση αποτελεσμάτων 
 
 wscript.echo « Εκκαθάριση αντικείμενα 
 
 Set objFSO = Τίποτα 
 
 Set objReadFile = Τίποτα 
 
 » περιεχόμενο 
 
 Κλείστε σενάριο 
 
 WScript.Quit ( ) 
 
 Κάντε κλικ στο " αρχείο" και επιλέξτε "Αποθήκευση" στο Notepad και να βγείτε από το πρόγραμμα . 
 Η 4 
 Εκτελέστε το σενάριο με διπλό κλικ στο αρχείο ReadTextFile.vbs VBScript . 
 
 Κάντε κλικ στο κουμπί " OK " στο " Windows Script Host " εντολών . Τώρα μπορείτε να αναζητήσετε και να διαβάσετε ένα αρχείο κειμένου με VBSript . 
 Η 
 εικόνων
           
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα