Rubrik: Dateisystem | 15.04.02 |
Komplette Ordner kopieren VB-Version: VB5, VB6 | ||
Views: 25.796 |
Um komplette Ordner zu kopieren kann man jederzeit auf den Tipp Kopieren, Verschieben, Löschen wie im Explorer aus unserer Rubrik Tipps und Tricks zurückgreifen. Wem das zu kompliziert oder aufwändig ist, kann es aber auch über das FileSystemObject machen. Und das funktioniert so:
Zuerst im Projekt einen Verweis auf die "Windows Scripting Runtime" hinzufügen (Menü Projekt - Verweise). Dann an der entsprechenden Stelle folgenden Code einfügen:
Dim FSO As New FileSystemObject Dim Folder As Folder Dim sPath As String ' Hier den vollständigen Ordnerpfad angeben sPath = "d:\temp\test\" Set Folder = FSO.GetFolder(sPath) Folder.Copy "e:\"