Eins der wichtigsten Objekte für Skripte. Es ist das Standardobjekt in fast jedem Skript. Daher wird der Zugriff meist aus Performance-Gründen global definiert.
Hilfreiche Zusammenstellung von Skriptbeispielen: http://www.oc-s.com/tutorials/WSH/filesystemobject.htm

VBScript:
Dim fso Set fso = CreateObject("Scripting.FileSystemObject") JScript:
var fso = new ActiveXObject("Scripting.FileSystemObject");

Es empfiehlt sich Objekte bei Beendigung frei zu geben. Da es meist global definiert wird, sollte gewährleistet sein, dass bei Programmbeendigung das Objekt frei gegeben wird. Beispiel siehe: Scriptgerüst (VBScript)
VBScript:
Set fso = Nothing

VBScript:
sDrive = fso.GetDriveName(sFullPath)

VBScript:
sDir = fso.GetParentFolderName(sFullPath)

Ermittelt Dateinamen mit Dateiendung
VBScript:
sFileName = fso.GetFileName(sFullPath)

Ermittelt Dateinamen, jedoch ohne Dateityp
VBScript:
sBaseName = fso.GetBaseName(sFullPath)

Ermittelt Dateiendung/-typ
VBScript:
sExt = fso.GetExtensionName(sFullPath)

Setzt zwei Teilpfade zu einem kompletten Pfad zusammen
VBScript:
sResultPath = fso.BuildPath(sDir, sFileName)

Wird benötigt um einen absoluten Pfad zu konsolidieren. Zu weiteren Handhabung siehe die VBScript-Hilfe
VBScript:
sGuiltyPath = fso.GetAbsolutePathName(sAskPath)

Wird oft benötigt: Das temporäre Computerverzeichnis
sTempPath = fso.GetSpecialFolder(2)

Hiermit kann ermittelt werden, welche Laufwerke es gibt, ob ein Laufwerk verfügbar ist, freien Speicherplatz etc. Hier kann nur ein grober Abriss der Möglichkeiten aufgezeigt werden. Siehe Drive-Objekt in der WSH-Hilfe

VBScript:
Set oDrive = fso.GetDrive(fso.GetDriveName(sFullPath))

(Laufwerke, die nicht bereit sind, werden nicht aufgeführt)
VBScript:
'Liefert aktuell verfügbare(!) Laufwerke Public Function ListReadyDrives Dim oFS Dim oDrives Dim oDrive

Dim sResult

'Objekte holen Set oFS = CreateObject("Scripting.FileSystemObject") Set oDrives = fso.Drives

For Each oDrive in dc If oDrive.IsReady Then sResult = sResult & ";" & oDrive.DriveLetter & ": (" & DriveType(oDrive) & ")" Next Set oDrives = Nothing Set oFS = Nothing

ListReadyDrives = Split(Mid(sResult, 2), ";") End Function

'Liefert einen Laufwerkstyp als Klartext Public Function DriveType(ByVal oDrive) Select Case oDrive.DriveType Case 0 DriveType = "Unbekannt" Case 1 DriveType = "Wechseldatenträger" Case 2 DriveType = "Festplatte" Case 3 DriveType = "Netzwerk" Case 4 DriveType = "CD/DVD-ROM" Case 5 DriveType = "RAM-Laufwerk" Case Else DriveType = "Unbekannter Typ" End Select End Function

VBScript:
Set oDrive = fso.GetDrive(fso.GetDriveName(sFullPath)) If oDrive.IsReady Then '…

End If Set oDrive = Nothing

VBScript:
'… Dim oDrive Set oDrive = fso.GetDrive(fso.GetDriveName(sFullPath)) MsgBox FormatBytes(oDrive.FreeSpace) & vbCRLF & FormatBytes(oDrive.AvailableSpace)

'Formatiert Größe von Bytes in lesbare Form mit Vorsätzen Function FormatBytes(ByVal Value) Dim sBenennung

If IsNumeric(Value) Then sBenennung = " B" If Value >= 1024 Then Value = Value / 1024 sBenennung = " KB" End If If Value >= 1024 Then Value = Value / 1024 sBenennung = " MB" End If If Value >= 1024 Then Value = Value / 1024 sBenennung = " GB" End If FormatBytes = FormatNumber(Value, 2, -1) & sBenennung Else FormatBytes = "Formatierung nicht möglich!" End If End Function

Eines der Hauptfunktionen ist: Ist ein Verzeichnis vorhanden
If fso.FolderExists(sFolderPath) Then

  'Code, wenn Verzeichnis da ist
  '...

Else

  MsgBox "Verzeichnis fehlt!", vbExclamation

End If

Das Folder-Objekt liefert die verschiedensten Verzeichniseigenschaften und Methoden. Man kann damit Verzeichnis-Attribute, Zeiteigenschaften, Pfadeigenschaften lesen und schreiben. Oder man kann Unterverzeichnisse oder im Verzeichnis enthaltene Dateien ermitteln, das angesprochene Verzeichnis kopieren, löschen oder verschieben. Hier sollen nur einige wesentliche Eigenschaften oder Methoden aufgeführt werden, um die enorme Leistungsfähigkeit zu zeigen. Für die umfangreiche Hilfe siehe die WSH-Scripthilfe. Die folgenden Beispiele beruhen auf dem Folder-Objekt.

VBScript:
Dim oFolder Set oFolder = fso.GetFolder(sFolderPath)

VBScript:
Set oFolder = Nothing

VBScript:
if not fso.FolderExists(sFolderPath) then

  fso.CreateFolder(sFolderPath)

end if Es kann nur ein Ordner angelegt werden, dessen übergeordnete Ordner bereits vorhanden ist. Sonst erfolgt eine Fehlermeldung.

VBScript:
Set ofolders = fso.getfolder(C:\test") Set osubfolder = ofolders.Subfolders For Each VerzX in osubfolder

  Msgbox VerzX.Name

Next set osubfolder = nothing set ofolders = nothing

VBScript:
'Stand: 27.01.2011 Option Explicit

Main

Sub Main MsgBox Join(ReadAllFiles(FF_EnterPath(False, "Verzeichnis auswählen"), ".jpg;.tif;.png;.bmp;*.jp2", True), vbCRLF) End Sub

'Liest alle Dateien ein, die den Kriterien entsprechen 'Parameter: 'sPath: Vollständiger Ursprungspfad 'sFilter: Dateifilter. Zugelassene Filterzeichen: "*". Mehrere Filter werden mit Semikolon ";" getrennt 'bRecursive: True = Durchsucht auch Unterverzeichnisse Public Function ReadAllFiles(sPath, sFilter, bRecursive) Dim oFolderClass Set oFolderClass = New clsFolder With oFolderClass .FileFilter = sFilter ReadAllFiles = .GetFiles(sPath, bRecursive) End With Set oFolderClass = Nothing End Function

':::::::::::::::::::::::::::::::::::::::::: Class clsFolder ':::::::::::::::::::::::::::::::::::::::::: Private mv_fso Private mv_Filter Public FileTypes

Private Sub Class_Initialize() Set mv_fso = CreateObject("Scripting.FileSystemObject") mv_Filter = Array(".") End Sub Private Sub Class_Terminate() Set mv_fso = Nothing Erase mv_Filter End Sub

' Eigenschaft: Filter ' Zulässige Filterzeichen: * ' Mehrere Definitionen werden mit Semikolon ";" getrennt Public Property Let FileFilter(ByVal sValue) Dim i

If Len(sValue) = 0 Then mv_Filter = Array(".") Else mv_Filter = Split(Trim(sValue), ";") For i = 0 To UBound(mv_Filter, 1) mv_Filter(i) = Trim(mv_Filter(i)) Next End If End Property Public Property Get FileFilter() FileFilter = Join(mv_Filter, ";") End Property

'Testet Dateinamen, ob sie dem Dateifilter entsprechen Public Function TestFilter(sFilePath) Dim sName Dim aSplit Dim i Dim lUBound Dim lPos Dim sFilter

Dim bStartFilter

TestFilter = False

sName = mv_fso.GetFileName(sFilePath)

For Each sFilter In mv_Filter If Len(sFilter) > 0 Then aSplit = Split(sFilter, "*") lUBound = UBound(aSplit, 1) lPos = 1 For i = 0 To lUBound Select Case True Case CBool¹⁾ = 0)) Case CBool²⁾ = 0)) TestFilter = True Exit Function Case Len(aSplit(i)) = 0 Case Else lPos = InStr(lPos, sName, aSplit(i), vbTextCompare) If CBool³⁾ Then Exit For If lPos = 0 Then Exit For

lPos = lPos + Len(aSplit(i)) End Select Next If lPos >= Len(sName) Then TestFilter = True Exit Function End If End If Next End Function

' Holt alle Dateien aus dem angegebenen Verzeichnis ' Parameter: ' sPath: Vollständiger Verzeichnispfad ' bRecursive: Gibt an, dass auch Unterverzeichnisse des Pfades durchsucht werden sollen Public Function GetFiles(ByVal sPath, ByVal bRecursive) Dim aFiles aFiles = Array() If Not mv_fso.FolderExists(sPath) Then GetFiles = aFiles Exit Function End If

RecGetFiles sPath, bRecursive, aFiles

GetFiles = aFiles End Function

'Hilfsmethode zur rekursiven Durchsuchung Private Sub RecGetFiles(ByRef sPath, ByVal bRecursive, ByRef aFiles) Dim oFolder Dim oSubFolder Dim oFile Set oFolder = mv_fso.GetFolder(sPath)

For Each oFile in oFolder.Files If TestFilter(oFile.Path) Then ReDim Preserve aFiles(UBound(aFiles, 1) + 1) aFiles(UBound(aFiles, 1)) = oFile.Path End If Next If bRecursive Then For Each oSubFolder in oFolder.SubFolders RecGetFiles oSubFolder.Path, bRecursive, aFiles Next End If End Sub

':::::::::::::::::::::::::::::::::::::::::: End Class '::::::::::::::::::::::::::::::::::::::::::

Das wichtigste überhaupt ist; festzustellen, ob eine Datei vorhanden ist:
If fso.FileExists(sFile) Then

  'Code, wenn Datei da ist
  '...

Else

  MsgBox "Datei fehlt!", vbExclamation

End If

Das File-Objekt liefert die verschiedensten Dateieigenschaften und Methoden. Man kann damit Datei-Attribute, Zeiteigenschaften, Pfadeigenschaften lesen und schreiben. Es ist auch eine Möglicheit Dateien zu verschieben, kopieren oder zu löschen. Für die umfangreiche Hilfe siehe die WSH-Scripthilfe. Die folgenden Beispiele beruhen auf dem File-Objekt.

VBScript:
Dim oFile Set oFile = fso.GetFile(sFileFullPath)

VBScript:
Set oFile = Nothing

VBScript:
Option Explicit

Dim fso

Main

Set fso = Nothing

Sub Main

  Dim oFile
  Dim sFile

  If FF_GetImageCount = 0 Then Exit Sub

  Set fso = CreateObject("Scripting.FileSystemObject")
  sFile = FF_GetImageName(0)

  Set oFile = fso.GetFile(sFile)

  MsgBox sFile & ": " & oFile.Size & " Bytes"

  Set oFile = Nothing

End Sub

Dieses Beispiel löscht die Attribute "ReadOnly" und "Hidden" und setzt das Attribute "Archive", damit es vom Backup erneut erfasst wird.
VBScript:
'Attribute

Option Explicit

Dim fso

'0=Normal Normale Datei. Es sind keine Attribute gesetzt. '1=ReadOnly Schreibgeschützte Datei. Für das Attribut gilt Lesen/Schreiben. '2=Hidden Versteckte Datei. Für das Attribut gilt Lesen/Schreiben. '4=System Systemdatei. Für das Attribut gilt Lesen/Schreiben. '8=Volume Datenträgerbezeichnung eines Laufwerkes. Das Attribut ist schreibgeschützt. '16=Directory Ordner oder Verzeichnis. Das Attribut ist schreibgeschützt. '32=Archive Datei hat sich nach der letzten Sicherung geändert. Für das Attribut gilt Lesen/Schreiben. '64=Alias Verknüpfung oder Shortcut. Das Attribut ist schreibgeschützt. '128=Compressed Komprimierte Datei. Das Attribut ist schreibgeschützt.

Main

Set fso = Nothing

Sub Main

  Dim sFile
  Dim oFile
  Dim lAttributes

  sFile = FF_GetImageName(0)
  If Len(sFile) = 0 Then Exit Sub

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set oFile = fso.GetFile(sFile)
  lAttributes = oFile.Attributes

  'ReadOnly löschen
  lAttributes = (Not (Not lAttributes Or 1))
  'Hidden löschen
  lAttributes = (Not (Not lAttributes Or 2))
  'Archive setzen
  lAttributes = lAttributes Or 32

  oFile.Attributes = lAttributes

  Set oFile = Nothing

End Sub

VBScript:
Function FileExists(ByVal uFileName)

  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  FileExists = fso.FileExists(uFileName)
  Set fso = Nothing

End Function

Manchmal ist es nötig zu ermitteln, wann eine Datei das letztemal geschrieben wurde. Das ist z. B. bei Kopiervorgängen wichtig, um festzustellen, welche Datei neuer ist.
VBScript:
Option Explicit

Dim fso

Main

Set fso = Nothing

Sub Main

  Dim oFile
  Dim sFile

  If FF_GetImageCount = 0 Then Exit Sub

  Set fso = CreateObject("Scripting.FileSystemObject")
  sFile = FF_GetImageName(0)

  Set oFile = fso.GetFile(sFile)

  MsgBox "Letzte Änderung von """ & sFile & """: " & oFile.DateLastModified

  Set oFile = Nothing

End Sub