 Zugriff
auf das Dateisystem über das Objekt FileSystem
In der heutigen Kolumne beschreibt der Autor Bernd Held wie Sie über das
Objekt FileSystem können Sie Zugriff auf das Dateisystem Ihres
Computers
gewinnen. Unter anderem können Sie über dieses Objekt Dateien prüfen,
kopieren, umbenennen und löschen, Verzeichnisse erstellen und löschen
und einige andere Dinge mehr. Sehen Sie in dieser Kolumne wie Sie die Existenz
einer Datei bzw. eines Verzeichnisses prüfen können.
Nähere
Informationen zu Bernd Helds erfolgreichen Buch mit Tipps und Lösungen
rund
um
die VBA-Programmierung in Access, finden Sie hier
(Das Access-VBA Codebook).
Prüfen auf Dateiexistenz
Eine wichtige Methode des Objektes Filesystem ist die Methode FileExists.
Mithilfe dieser Methode können Sie überprüfen, ob eine bestimmte
Datei in einem Verzeichnis überhaupt existiert. Im folgenden Beispiel
wird überprüft, ob die Datei KATALOG.XLS im Verzeichnis C:\EIGENE
DATEIEN vorhanden ist.
| Code: |
Sub DateiDa()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("c:\Eigene Dateien\Katalog.xls") = True Then
MsgBox "Datei existiert!"
Else
MsgBox "Datei existiert nicht!"
End If
End Sub |
Prüfen auf Verzeichnisexistenz
Über den Einsatz der Methode FolderExists können Sie testen, ob ein
Verzeichnis existiert. Die Methode gibt den Wert True zurück, wenn ein angegebener
Ordner vorhanden ist, bzw. den Wert False, wenn dies nicht der Fall ist. Im folgenden
Makro wird überprüft, ob der Ordner C:\EIGENE DATEIEN\KOPIE existiert.
| Code: |
Sub OrdnerDa()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\Eigene Dateien\Kopie") = True Then
MsgBox "Ordner existiert!"
Else
MsgBox "Ordner existiert nicht!"
End If
End Sub |
Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden
Sie auf unserer AP-Access-Tools
 Vol.1
| | | | 
 |
Auf der AP-Access-Tools Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
| 
» Newsletter
