Objets VBScript FileSystem

Comme son nom l'indique, les objets FSO aident les développeurs à travailler avec des lecteurs, des dossiers et des fichiers. Dans cette section, nous discuterons -

Objets et collections

Sr.No.	Type d'objet et description
1	Drive Le lecteur est un objet. Contient des méthodes et des propriétés qui vous permettent de collecter des informations sur un lecteur connecté au système
2	Drives Drives est une collection. Il fournit une liste des lecteurs connectés au système, physiquement ou logiquement.
3	File Le fichier est un objet. Il contient des méthodes et des propriétés qui permettent aux développeurs de créer, supprimer ou déplacer un fichier.
4	Files Les fichiers sont une collection. Il fournit une liste de tous les fichiers contenus dans un dossier.
5	Folder Le dossier est un objet. Il fournit des méthodes et des propriétés qui permettent aux développeurs de créer, supprimer ou déplacer des dossiers.
6	Folders Folders est une collection. Il fournit une liste de tous les dossiers dans un dossier.
sept	TextStream TextStream est un objet. Il permet aux développeurs de lire et d'écrire des fichiers texte.

Conduire

Driveest un objet, qui permet d'accéder aux propriétés d'un lecteur de disque ou d'un partage réseau particulier. Les propriétés suivantes sont prises en charge parDrive objet -

AvailableSpace
DriveLetter
DriveType
FileSystem
FreeSpace
IsReady
Path
RootFolder
SerialNumber
ShareName
TotalSize
VolumeName

Exemple

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim oFS, drive, space
         Set oFS = CreateObject("Scripting.FileSystemObject")
         Set drive = oFS.GetDrive(oFS.GetDriveName("C:\"))
         space = "Drive " & UCase(drvPath) & " - " 
         space = space & drive.VolumeName   & "  "
         space = space & "Free Space: " & FormatNumber(drive.FreeSpace/1024, 0) 
         space = space & " Kbytes"
         Document.write space

      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous obtiendrons la sortie suivante dans la console.

Drive - Win 7 Free Space:20,154,059 Kbytes

Disques

Drivesest une collection, qui fournit des détails sur tous les lecteurs connectés au système, physiquement ou logiquement. Il porte deux propriétés -

Propriété Count
Propriété de l'article

Exemple

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim oFS, d, dc, s, n
         Set oFS = CreateObject("Scripting.FileSystemObject")
         Set dc = oFS.Drives
         
         For Each d in dc
            n = ""
            s = s & d.DriveLetter & " - " 
            If d.DriveType = 3 Then
               n = d.ShareName
            ElseIf d.IsReady Then
               n = d.VolumeName
            Else
               n = "Drive not available"
            End If
            s = s & n & "::"
         Next
         
         document.write s
         document.write dc.count
         
      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous obtiendrons la sortie suivante dans la console.

C- Win 7::D-Personal ::E-Common::F-Songs::
4

Fichier

File est un objet, qui contient à la fois des propriétés et des méthodes permettant aux développeurs de créer, supprimer ou déplacer un fichier.

Méthodes

Copy
Delete
Move
openasTextStream

Propriétés

Attributes
DateCreated
DateLastAccessed
DateLastModified
Drive
Name
ParentFolder
Path
ShortName
ShortPath
Size
Type

Exemple

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim fso, f
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set f = fso.GetFile("C:\user.js")
         document.write "Line 1: "& f.DateCreated & "<br />"
         document.write "Line 2: "& f.Attributes & "<br />"
         
         document.write "Line 3: "& f.DateLastAccessed & "<br />"
         document.write "Line 4: "& f.DateLastModified & "<br />"
         
         document.write "Line 5: "& f.Drive  & "<br />"
         document.write "Line 6: "& f.Name  & "<br />"
         
         document.write "Line 7: "& f.ParentFolder & "<br />"
         document.write "Line 8: "& f.Path  & "<br />"
         
         document.write "Line 9: "& f.ShortName  & "<br />"
         document.write "Line 10: "& f.ShortPath & "<br />"
         
         document.write "Line 11: "& f.Size  & "<br />"
         document.write "Line 12: "& f.Type & "<br />"
         
         f.copy ("D:\") & "<br />"    'copying to file to another location'
         f.Move ("E:\") & "<br />"   'Move the file to another location'
         f.Delete ("D:\") & "<br />"  'Delete to file from one location'

      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous obtiendrons la sortie suivante dans la console.

Line 1: 08/02/13 06:57:34
Line 2: 32
Line 3: 08/02/13 06:57:34
Line 4: 04/18/12 22:23:37
Line 5: C:
Line 6: user.js
Line 7: C:\
Line 8: C:\user.js
Line 9: user.js
Line 10: C:\user.js
Line 11: 474
Line 12: JScript Script File

Des dossiers

Files est une collection, qui fournit une liste de tous les fichiers contenus dans un dossier.

Propriétés

Count
Item

Exemple

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim fso, f, f1, fc, s
         Set oFS = CreateObject("Scripting.FileSystemObject")
         
         'get the folder by giving its path
         Set f = oFS.GetFolder("D:\PROJECT\")
         Set fc = f.Files
         
         'Get Item
         Set s = fc.Item("sendmail.vbs")
         
         'Get Count
         x = fc.Count
         
         Document.write s
         Document.write x

      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous obtiendrons la sortie suivante dans la console.

D:\PROJECT\sendmail.vbs
6

Dossier

Folder est un objet, qui contient à la fois des propriétés et des méthodes permettant aux développeurs de créer, supprimer ou déplacer un dossier.

Méthodes

Copy
Delete
Move
CreateTextFile

Propriétés

Attributes
DateCreated
DateLastAccessed
DateLastModified
Drive
Files
IsRootFolder
Name
ParentFolder
Path
ShortName
ShortPath
Size
SubFolders
Type

Exemple

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim fso, f
         Set fso = CreateObject("Scripting.FileSystemObject")
         
         ' Enter a Folder Name that exists on your System'
         Set f = fso.GetFolder("D:\PROJECT\")
         
         ShowFileInfo = "Created: " & f.DateCreated & "<br / >"
         document.write ShowFileInfo
         
         ShowFileInfo = "attributes " & f.attributes & "<br / >"
         document.write ShowFileInfo
         
         ShowFileInfo = "Last Accessed : " &  f.DateLastAccessed & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo = "DateLastModified : " & f.DateLastModified & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "Drive : " &  f.Drive & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =   "count : " &  f.Files.count & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo = "IsRoot folder : "  &f.IsRootFolder   & "<br / >" 
         document.write ShowFileInfo

         ShowFileInfo =  "Name : " & f.Name    & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "parent folder : " & f.ParentFolder    & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "Path : " & f.Path    & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "shortname : " & f.ShortName    & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "ShortPath : "  & f.ShortPath    & "<br / >"
         document.write ShowFileInfo

         ShowFileInfo =  "File Size : " & f.Size & "<br / >"   
         document.write ShowFileInfo

         ShowFileInfo = "Type : " &  f.Type    & "<br / >"
         document.write ShowFileInfo
         
      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous obtiendrons la sortie suivante dans la console.

Created: 22/02/2012 8:24:57 PM
attributes 16
Last Accessed : 1/08/2013 12:48:36 PM
DateLastModified : 1/08/2013 12:48:36 PM
Drive : D:
count : 6
IsRoot folder : False
Name : PROJECT
parent folder : D:\
Path : D:\PROJECT
shortname : PROJECT
ShortPath : D:\PROJECT
File Size : 8655239975
Type : File folder

Dossiers

Folders est une collection de tous les objets Folder dans un objet Folder.

Méthodes

Propriétés

Count
Item

Exemple

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous créerons un dossier avec le nom "Test_Folder".

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim fso, f, fc, nf
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set f = fso.GetFolder("D:\PROJECT")
         Set fc = f.SubFolders
         folderName = "Test_Folder"
         
         If folderName <> "" Then
            Set nf = fc.Add(folderName)
         Else
            Set nf = fc.Add("New Folder")
         End If
         
      </script>
   </body>
</html>

TextStream

TextStreamobject aide les développeurs à travailler avec des fichiers texte de manière transparente. Les développeurs peuvent lire, écrire ou ajouter le contenu au fichier texte à l'aide de l'objet de flux de texte.

Syntaxe

TextStream.{property  | method( )}

Exemple

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, nous créerons un dossier avec le nom "Test_Folder".

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim objFSO
         Set objFSO = CreateObject("Scripting.FileSystemObject") 
         
         Dim objTextFile 
         Set objTextFile = objFSO.CreateTextFile("D:\Testfile.txt") 
         
         objTextFile.Close
         Const ForAppending = 8
         Set objTextFile = objFSO.OpenTextFile("D:\Testfile.txt",ForAppending,True)
         
         objTextFile.WriteLine "Welcome to VBScript Programming"
         objTextFile.Close
         Set objTextFile = Nothing 
         Set objFSO = Nothing 
         
      </script>
   </body>
</html>

Si le script ci-dessus est enregistré au format HTML et exécuté dans IE, il créera un fichier texte dans D: \ Drive et ajoutera la chaîne spécifiée dans la méthode WriteLine.

Welcome to VBScript Programming

↰ Previous page

Objets VBScript FileSystem

Objets et collections

Conduire

Exemple

Disques

Exemple

Fichier

Méthodes

Propriétés

Exemple

Des dossiers

Propriétés

Exemple

Dossier

Méthodes

Propriétés

Exemple

Dossiers

Méthodes

Propriétés

Exemple

TextStream

Syntaxe

Exemple

VBScript Advanced

Tutoriel VBScript

Ressources utiles VBScript