Objetos del sistema de archivos VBScript

Como sugiere su nombre, FSO Objects ayuda a los desarrolladores a trabajar con unidades, carpetas y archivos. En esta sección, discutiremos:

Objetos y colecciones

No Señor.	Tipo de objeto y descripción
1	Drive Drive es un objeto. Contiene métodos y propiedades que le permiten recopilar información sobre una unidad conectada al sistema.
2	Drives Drives es una colección. Proporciona una lista de las unidades conectadas al sistema, ya sea física o lógicamente.
3	File El archivo es un objeto. Contiene métodos y propiedades que permiten a los desarrolladores crear, eliminar o mover un archivo.
4	Files Archivos es una colección. Proporciona una lista de todos los archivos contenidos en una carpeta.
5	Folder La carpeta es un objeto. Proporciona métodos y propiedades que permiten a los desarrolladores crear, eliminar o mover carpetas.
6	Folders Folders es una colección. Proporciona una lista de todas las carpetas dentro de una carpeta.
7	TextStream TextStream es un objeto. Permite a los desarrolladores leer y escribir archivos de texto.

Conducir

Drivees un objeto que proporciona acceso a las propiedades de una unidad de disco o un recurso compartido de red en particular. Las siguientes propiedades son compatibles conDrive objeto -

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

Ejemplo

<!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 el script anterior se guarda como HTML y se ejecuta en IE, obtendríamos la siguiente salida en la consola.

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

Drives

Driveses una colección que proporciona detalles de todas las unidades conectadas al sistema, ya sea física o lógicamente. Tiene dos propiedades:

Contar propiedad
Propiedad del artículo

Ejemplo

<!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 el script anterior se guarda como HTML y se ejecuta en IE, obtendríamos la siguiente salida en la consola.

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

Archivo

File es un objeto, que contiene propiedades y métodos que permiten a los desarrolladores crear, eliminar o mover un archivo.

Métodos

Copy
Delete
Move
openasTextStream

Propiedades

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

Ejemplo

<!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 el script anterior se guarda como HTML y se ejecuta en IE, obtendríamos la siguiente salida en la consola.

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

Archivos

Files es una colección, que proporciona una lista de todos los archivos contenidos dentro de una carpeta.

Propiedades

Count
Item

Ejemplo

<!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 el script anterior se guarda como HTML y se ejecuta en IE, obtendríamos la siguiente salida en la consola.

D:\PROJECT\sendmail.vbs
6

Carpeta

Folder es un objeto, que contiene propiedades y métodos que permiten a los desarrolladores crear, eliminar o mover una carpeta.

Métodos

Copy
Delete
Move
CreateTextFile

Propiedades

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

Ejemplo

<!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 el script anterior se guarda como HTML y se ejecuta en IE, obtendríamos la siguiente salida en la consola.

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

Carpetas

Folders es una colección de todos los objetos de carpeta dentro de un objeto de carpeta.

Métodos

Propiedades

Count
Item

Ejemplo

Si el script anterior se guarda como HTML y se ejecuta en IE, crearíamos una carpeta con el nombre "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 ayuda a los desarrolladores a trabajar con archivos de texto sin problemas. Los desarrolladores pueden leer, escribir o agregar el contenido al archivo de texto utilizando el objeto de flujo de texto.

Sintaxis

TextStream.{property  | method( )}

Ejemplo

Si el script anterior se guarda como HTML y se ejecuta en IE, crearíamos una carpeta con el nombre "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 el script anterior se guarda como HTML y se ejecuta en IE, creará un archivo de texto en D: \ Drive y agregará la cadena especificada en el método WriteLine.

Welcome to VBScript Programming

↰ Previous page