Im ersten Teil dieses Beitrags haben wir die Grundlagen für die Arbeit mit Ordnern und Dateien im TreeView-Steuerelement gelegt: Ordner und Dateien im Explorer anzeigen und öffnen, das Ermitteln des Pfades über die Tabellen-IDs, Kontextmenüs für Ordner- und Datei-Elemente sowie die vollständige Implementierung der Ordner-Operationen Kopieren, Ausschneiden, Einfügen, Umbenennen und Löschen. Im vorliegenden zweiten Teil ergänzen wir die noch fehlenden Datei-Operationen und erörtern die Funktionen im Modul „mdlDateisystem“, welche die TreeView-Änderungen tatsächlich auf das Dateisystem übertragen.<\/b><\/p>\n
Voraussetzung<\/h2>\n
Dieser Beitrag baut unmittelbar auf Teil 1 auf (www.access-im-unternehmen.de\/1585<\/b>). Alle dort beschriebenen Module, Funktionen und Formulare werden vorausgesetzt und hier nicht erneut erklärt.<\/p>\n
Wir setzen auf dem dort beschriebenen Formular frmDateienImTreeView <\/b>auf (siehe Bild 1).<\/p>\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_03\/pic_1598_007.png\")
<\/p>\n
Bild 1: Das TreeView-Steuerelement mit den Ordnern und Dateien<\/span><\/b><\/p>\n Im Vergleich zum Listing aus Teil 1 wurde die Ereignisprozedur ctlTreeView_MouseDown<\/b> um eine zusätzliche Zuweisung ergänzt. Bislang wurde objCurrentNode<\/b> nur dann geleert und das markierte Element abgewählt, wenn kein Node getroffen wurde. Nun wird außerdem in allen anderen Fällen – also wenn tatsächlich ein Node-Element angeklickt wurde – die Eigenschaft SelectedItem<\/b> des TreeView<\/b>-Steuerelements explizit auf dieses Element gesetzt:<\/p>\n Das stellt sicher, dass beim Aufruf von Kontextmenü-Funktionen, die über Screen.ActiveControl<\/b> auf das aktive Steuerelement zugreifen, das angeklickte Element stets korrekt als markiert gilt.<\/p>\n Das Kontextmenü für Ordner-Elemente wurde gegenüber dem in Teil 1 gezeigten Listing um einen weiteren Eintrag ergänzt.<\/p>\n Nach dem Eintrag Ordner umbenennen<\/b> erscheint nun auch Datei einfügen<\/b>, der die Funktion DateiEinfuegen<\/b> ohne Parameter aufruft:<\/p>\n Dieser Eintrag erlaubt es, eine zuvor kopierte oder ausgeschnittene Datei in den Zielordner einzufügen, ohne dass das Datei-Kontextmenü benötigt wird.<\/p>\n Da DateiEinfuegen<\/b> keinen Key-Parameter erwartet, ermittelt die Funktion das Ziel-Element selbst über Screen.ActiveControl.Object.SelectedItem<\/b>.<\/p>\n Das Kontextmenü für Datei-Elemente wird in der Prozedur CreateCommandBarFile<\/b> zusammengesetzt. Es enthält die fünf Einträge Datei kopieren<\/b>, Datei ausschneiden<\/b>, Datei umbenennen<\/b>, Datei löschen<\/b> und Datei mit Zielanwendung öffnen<\/b> (siehe Bild 2).<\/p>\n Bild 2: Kontextmenü für Dateien<\/span><\/b><\/p>\n Der Aufbau der Prozedur aus Listing 1 ist identisch mit dem Ordner-Kontextmenü aus Teil 1.<\/p>\n Listing 1: Prozedur zum Anzeigen des Kontextmenüs für Dateien<\/span><\/b><\/p>\n Der Key des angeklickten Nodes<\/b> wird aus objCurrentNode.Key<\/b> gelesen und an die jeweilige Funktion übergeben.<\/p>\n Alle fünf Funktionen liegen im Modul mdlKontextmenues<\/b>.<\/p>\n Analog zu den bereits beschriebenen Ordner-Variablen strKeyOrdnerKopiert<\/b> und strKeyOrdnerAusgeschnitten<\/b> gibt es im Modulkopf von mdlKontextmenues<\/b> zwei weitere öffentliche Variablen für Dateien:<\/p>\n Die zugehörigen Funktionen schreiben den Key in die jeweilige Variable und leeren die andere:<\/p>\n Das Vorgehen ist das gleiche, das wir in Teil 1 bereits für Ordner beschrieben haben.<\/p>\n Beim Umbenennen einer Datei gibt es einen kleinen Unterschied zu Ordnern. Die Funktion OrdnerUmbenennen<\/b> greift direkt über die globale Variable objTreeView<\/b> auf das Steuerelement zu.<\/p>\n Für Dateien wurde eine andere Lösung gewählt, weil der Umbenennen-Befehl über das Datei-Kontextmenü ohne Key<\/b>-Parameter aufgerufen wird. Die Funktion holt sich das aktive Steuerelement über Screen.ActiveControl<\/b>:<\/p>\n Das bereits aus Teil 1 bekannte Ereignis ctlTreeView_AfterLabelEdit<\/b> im Formularmodul übernimmt dann den neuen Namen sowohl in die Tabelle tblFiles<\/b> als auch im Dateisystem über den Aufruf von FS_DateiUmbenennen<\/b>.<\/p>\n Die Funktion DateiLoeschen<\/b> löscht eine Datei aus dem Dateisystem, aus der Tabelle tblFiles<\/b> und aus dem TreeView<\/b>-Steuerelement (Listing 2).<\/p>\n Sie übernimmt den Key des zu löschenden Elements, ermittelt daraus die ID und holt sich das aktive Steuerelement über Screen.ActiveControl<\/b>.<\/p>\n Nur wenn FS_DateiLoeschen<\/b> den Wert True<\/b> zurückgibt – also die Datei tatsächlich im Dateisystem gelöscht werden konnte – werden auch der Datenbank-Datensatz und der TreeView-Eintrag entfernt. Das vermeidet inkonsistente Zustände.<\/p>\n Um eine Datei in der zugehörigen Standardanwendung zu öffnen, nutzen wir die Funktion DateiOeffnen<\/b>. Sie ermittelt aus dem Key die ID, ruft GetFilePath<\/b> auf und übergibt den vollständigen Pfad an FollowHyperlink<\/b>:<\/p>\n Das Ergebnis ist identisch mit dem Doppelklick-Verhalten, das wir bereits in Teil 1 beschrieben haben. Zusätzlich ist der Befehl nun auch über das Kontextmenü erreichbar.<\/p>\n Die Funktion DateiEinfuegen<\/b> ist die komplexeste der Datei-Kontextmenü-Funktionen, weil sie sowohl den Fall des Einfügens einer kopierten als auch einer ausgeschnittenen Datei behandelt (siehe Listing 2).<\/p>\n Listing 2: Funktion zum Einfügen einer kopierten oder ausgeschnittenen Datei<\/span><\/b><\/p>\n Die Funktion prüft zunächst, ob eine Datei zum Kopieren oder zum Ausschneiden markiert ist. Das Ziel-Element – also der Ordner, in den eingefügt werden soll – wird über das aktuell im TreeView<\/b>-Steuerelement selektierte Element bestimmt.<\/p>\n Die Quelle wird über die ID aus strKeyDateiKopiert<\/b> beziehungsweise strKeyDateiAusgeschnitten<\/b> ermittelt.<\/p>\n Beim Kopieren rufen wir FS_DateiKopieren<\/b> auf. Ist das erfolgreich, legen wir in der Tabelle tblFiles<\/b> einen neuen Datensatz an – mit einem INSERT INTO … SELECT<\/b>-Ausdruck, der Dateiname, Größe und Datum übernimmt, aber die neue ParentID<\/b> verwendet.<\/p>\n Die neue FileID<\/b> ermitteln wir danach mit SELECT @@IDENTITY<\/b> und fügen das Element unter dem Zielordner in das TreeView<\/b>-Steuerelement ein.<\/p>\n Beim Ausschneiden rufen wir FS_DateiVerschieben<\/b> auf. Nach erfolgreichem Verschieben aktualisieren wir die ParentID<\/b> des vorhandenen Datensatzes in tblFiles<\/b> per UPDATE<\/b>.<\/p>\n Wir prüfen über db.RecordsAffected<\/b>, ob genau ein Datensatz geändert wurde.<\/p>\n Ist das der Fall, entfernen wir den Node an seiner alten Position und fügen ihn beim Zielordner neu ein.<\/p>\n Im Vergleich zum Listing aus Teil 1 wurde die Funktion OrdnerLoeschen<\/b> um einen Aufruf von FS_OrdnerLoeschen<\/b> ergänzt, der vor dem Löschen der Datenbankdatensätze ausgeführt wird:<\/p>\n Im Artikel-Listing aus Teil 1 fehlte noch der Aufruf von FS_OrdnerLoeschen<\/b>.<\/p>\n Erst durch diesen Aufruf wird der Ordner tatsächlich auch aus dem Dateisystem gelöscht – mit allen enthaltenen Unterordnern und Dateien.<\/p>\n Sämtliche Dateisystem-Operationen sind im Modul mdlDateisystem<\/b> zusammengefasst. Alle Funktionen nutzen das Scripting.FileSystemObject<\/b> aus der Microsoft Scripting Runtime. Wir gehen im Folgenden die Funktionen der Reihe nach durch.<\/p>\n Die Funktion FS_OrdnerVorhanden <\/b>haben wir bereits in Teil 1 im Zusammenhang mit NeuerOrdner<\/b> vorgestellt.<\/p>\n Sie übernimmt die ID des Zielordners und den gewünschten Ordnernamen, ermittelt über GetFolderPath<\/b> den vollständigen Pfad und prüft mit FolderExists<\/b>, ob der Ordner bereits existiert.<\/p>\n Die Funktion FS_OrdnerKopieren<\/b> übernimmt die IDs von Quell- und Zielordner (siehe Listing 3). Sie ermittelt den Quellpfad mit GetFolderPath<\/b> und den Zielpfad für den kopierten Ordner. Existiert am Ziel bereits ein gleichnamiger Ordner, meldet sie das mit einem Hinweisdialog.<\/p>\n Listing 3: Funktion zum Kopieren eines Ordners im Dateisystem<\/span><\/b><\/p>\n Andernfalls kopiert sie mit CopyFolder<\/b> und prüft anschließend, ob der Ordner tatsächlich entstanden ist.<\/p>\n Die nächste Funktion FS_OrdnerVerschieben<\/b> arbeitet ähnlich wie FS_OrdnerKopieren<\/b>. Der Zielpfad wird dabei aus dem Pfad des Zielordners und dem tatsächlichen Namen des zu verschiebenden Ordners zusammengesetzt. Dazu liest die Funktion den Ordnernamen über objFSO.GetFolder(strQuellpfad).name<\/b> aus.<\/p>\n Nach dem Verschieben per MoveFolder<\/b> wird geprüft, ob der Ordner am Ziel tatsächlich vorhanden ist, und erst dann gibt die Funktion True<\/b> zurück.<\/p>\n Um einen Ordner zu löschen, nimmt die Funktion FS_OrdnerLoeschen<\/b> die ID des zu löschenden Ordners entgegen, ermittelt den Pfad und ruft DeleteFolder<\/b> auf.<\/p>\n Die Fehlerbehandlung überträgt eventuelle Fehlernummern zur Diagnose ins Direktfenster. Die Funktion ist als Sub<\/b> deklariert und gibt keinen Rückgabewert zurück.<\/p>\n Mit der Funktion FS_NeuerOrdner<\/b> erzeugen wir im Dateisystem den neuen Ordner, dessen Name bereits von NeuerOrdner<\/b> in mdlKontextmenues<\/b> ermittelt wurde. Die Funktion prüft vorab nochmals mit FolderExists<\/b>, ob der Ordner schon vorhanden ist, und legt ihn andernfalls mit CreateFolder<\/b> an. Bei Erfolg gibt sie True<\/b> zurück.<\/p>\n Um einen Ordner umzubenennen, verwendet FS_OrdnerUmbenennen<\/b> die VBA-Anweisung Name … As …<\/b>.<\/p>\n Der neue Pfad wird aus dem alten Pfad gebildet, indem der letzte Abschnitt nach dem letzten Backslash durch den neuen Namen ersetzt wird.<\/p>\n Nach dem Umbenennen wird mit FolderExists<\/b> geprüft, ob der Ordner am neuen Pfad vorhanden ist:<\/p>\n Das Umbenennen von Dateien übernimmt die Funktion FS_DateiUmbenennen<\/b>. Sie funktioniert nach dem gleichen Prinzip wie FS_OrdnerUmbenennen<\/b>.<\/p>\n Der Unterschied besteht darin, dass der Quellpfad per GetFilePath<\/b> statt GetFolderPath<\/b> ermittelt wird und die abschließende Prüfung mit FileExists<\/b> statt FolderExists<\/b> erfolgt.<\/p>\n In der Funktion FS_DateiLoeschen<\/b> ermitteln wir über GetFilePath<\/b> den vollständigen Pfad der zu löschenden Datei und rufen anschließend DeleteFile<\/b> auf.<\/p>\n Ob das Löschen erfolgreich war, prüft die Funktion mit Not objFSO.FileExists(strPfad)<\/b> und gibt entsprechend True<\/b> oder False<\/b> zurück.<\/p>\n Die Funktion FS_DateiVerschieben<\/b> übernimmt die IDs von Quelldatei und Zielordner (siehe Listing 4). Sie ermittelt den Quellpfad der Datei und den Pfad des Zielordners.<\/p>\nErgänzung im Formular: SelectedItem setzen<\/h2>\n
Set<\/span> objCurrentNode = ctlTreeView.Object.HitTest(x, y)\r\nIf <\/span>objCurrentNode Is Nothing Then<\/span>\r\n Me.ctlTreeView.Object.SelectedItem = Nothing\r\nElse<\/span>\r\n Me.ctlTreeView.Object.SelectedItem = objCurrentNode\r\nEnd If<\/span><\/pre>\nDatei einfügen – neuer Kontextmenü-Eintrag im Ordner-Menü<\/h2>\n
With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei einfügen\"\r\n .OnAction = \"=DateiEinfuegen()\"\r\n .FaceId = 2512\r\nEnd With<\/span><\/pre>\nDas Kontextmenü für Dateien<\/h2>\n
![\"Kontextmenü](\"..\/fileadmin\/_temp_\/2026_03\/pic_1598_008.png\")
<\/p>\nPrivate Sub <\/span>CreateCommandBarFile()\r\n Dim <\/span>strKey As String<\/span>\r\n Dim <\/span>cbr As <\/span>Office.CommandBar\r\n strKey = objCurrentNode.Key\r\n On Error Resume Next<\/span>\r\n CommandBars(\"Ordner\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"Ordner\", msoBarPopup, False, True<\/span>)\r\n With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei kopieren\"\r\n .OnAction = \"=DateiKopieren('\" & strKey & \"')\"\r\n .FaceId = 1667\r\n End With<\/span>\r\n With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei ausschneiden\"\r\n .OnAction = \"=DateiAusschneiden('\" & strKey & \"')\"\r\n .FaceId = 1667\r\n End With<\/span>\r\n With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei umbenennen\"\r\n .OnAction = \"=DateiUmbenennen()\"\r\n .FaceId = 1667\r\n End With<\/span>\r\n With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei löschen\"\r\n .OnAction = \"=DateiLoeschen('\" & strKey & \"')\"\r\n .FaceId = 1667\r\n End With<\/span>\r\n With<\/span> cbr.Controls.Add(msoControlButton)\r\n .Caption = \"Datei mit Zielanwendung öffnen\"\r\n .OnAction = \"=DateiOeffnen('\" & strKey & \"')\"\r\n .FaceId = 1667\r\n End With<\/span>\r\n cbr.ShowPopup\r\nEnd Sub<\/span><\/pre>\nDateien kopieren und ausschneiden<\/h2>\n
Public <\/span>strKeyDateiKopiert As String<\/span>\r\nPublic <\/span>strKeyDateiAusgeschnitten As String<\/span><\/pre>\nPublic Function <\/span>DateiKopieren(strKey As String<\/span>)\r\n strKeyDateiKopiert = strKey\r\n strKeyDateiAusgeschnitten = \"\"\r\nEnd Function<\/span>\r\nPublic Function <\/span>DateiAusschneiden(strKey As String<\/span>)\r\n strKeyDateiAusgeschnitten = strKey\r\n strKeyDateiKopiert = \"\"\r\nEnd Function<\/span><\/pre>\nEine Datei umbenennen<\/h2>\n
Public Function <\/span>DateiUmbenennen()\r\n Dim <\/span>ctlTreeView As Object<\/span>\r\n Set<\/span> ctlTreeView = Screen.ActiveControl\r\n ctlTreeView.Object.StartLabelEdit\r\nEnd Function<\/span><\/pre>\nEine Datei löschen<\/h2>\n
Public Function <\/span>DateiLoeschen(strKey As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>ctlTreeView As Object<\/span>\r\n Set<\/span> ctlTreeView = Screen.ActiveControl\r\n lngID = Mid<\/span>(strKey, 2)\r\n Set<\/span> db = CurrentDb\r\n If <\/span>FS_DateiLoeschen(lngID) = True<\/span> Then<\/span>\r\n db.Execute \"DELETE FROM tblFiles WHERE FileID = \" _\r\n & lngID, dbFailOnError\r\n ctlTreeView.Object.Nodes.Remove \"i\" & lngID\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nEine Datei öffnen<\/h2>\n
Public Function <\/span>DateiOeffnen(strKey As String<\/span>) As Long<\/span>\r\n Dim <\/span>strPath As String<\/span>\r\n Dim <\/span>lngID As Long<\/span>\r\n lngID = Mid<\/span>(strKey, 2)\r\n strPath = GetFilePath(lngID)\r\n FollowHyperlink strPath\r\nEnd Function<\/span><\/pre>\nEine Datei einfügen<\/h2>\n
Public Function <\/span>DateiEinfuegen() As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database, ctlTreeView As Object<\/span>, objSourceItem As <\/span>MSComctlLib.Node\r\n Dim <\/span>lngSourceID As Long<\/span>, lngTargetID As Long<\/span>\r\n Dim <\/span>strSourceKey As String<\/span>, strSourceText As String<\/span>, strTargetKey As String<\/span>\r\n Dim <\/span>bolKopiert As Boolean<\/span>, bolAusgeschnitten As Boolean<\/span>, lngNewID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> Len<\/span>(strKeyDateiKopiert) = 0 Then<\/span>\r\n lngSourceID = Mid<\/span>(strKeyDateiKopiert, 2)\r\n bolKopiert = True<\/span>\r\n Else<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strKeyDateiAusgeschnitten) = 0 Then<\/span>\r\n lngSourceID = Mid<\/span>(strKeyDateiAusgeschnitten, 2)\r\n bolAusgeschnitten = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>Not<\/span> lngSourceID = 0 Then<\/span>\r\n Set<\/span> ctlTreeView = Screen.ActiveControl\r\n strTargetKey = ctlTreeView.Object.SelectedItem.Key\r\n lngTargetID = Mid<\/span>(strTargetKey, 2)\r\n If <\/span>bolKopiert = True<\/span> Then<\/span>\r\n If <\/span>FS_DateiKopieren(lngSourceID, lngTargetID) = True<\/span> Then<\/span>\r\n strSourceKey = \"i\" & lngSourceID\r\n Set<\/span> objSourceItem = ctlTreeView.Object.Nodes(strSourceKey)\r\n strSourceText = objSourceItem.Text\r\n db.Execute \"INSERT INTO tblFiles SELECT Filename, \" _\r\n & lngTargetID & \" AS ParentID, FileSize, Filedatetime\" _\r\n & \" FROM tblFiles WHERE FileID = \" & lngSourceID, dbFailOnError\r\n lngNewID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n ctlTreeView.Object.Nodes.Add \"f\" & lngTargetID, tvwChild, _\r\n \"i\" & lngNewID, strSourceText, \"book\"\r\n End If<\/span>\r\n Else<\/span>\r\n If <\/span>FS_DateiVerschieben(lngSourceID, lngTargetID) = True<\/span> Then<\/span>\r\n strSourceKey = \"i\" & lngSourceID\r\n Set<\/span> objSourceItem = ctlTreeView.Object.Nodes(strSourceKey)\r\n strSourceText = objSourceItem.Text\r\n db.Execute \"UPDATE tblFiles SET ParentID = \" & lngTargetID _\r\n & \" WHERE FileID = \" & lngSourceID, dbFailOnError\r\n If <\/span>db.RecordsAffected = 1 Then<\/span>\r\n ctlTreeView.Object.Nodes.Remove strSourceKey\r\n ctlTreeView.Object.Nodes.Add \"f\" & lngTargetID, tvwChild, _\r\n \"i\" & lngSourceID, strSourceText, \"book\"\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nOrdner löschen: FS-Aufruf ergänzt<\/h2>\n
If <\/span>bolNichtLoeschen = False<\/span> Then<\/span>\r\n Call<\/span> FS_OrdnerLoeschen(lngID)\r\n Call<\/span> UntergeordneteElementeLoeschen(lngID)\r\n db.Execute \"DELETE FROM tblFolders WHERE FolderID = \" _\r\n & lngID, dbFailOnError\r\n objTreeView.Nodes.Remove strKey\r\nEnd If<\/span><\/pre>\nDie Funktionen im Modul mdlDateisystem<\/h2>\n
Prüfen, ob Ordner vorhanden ist<\/h2>\n
Ordner kopieren<\/h2>\n
Public Function <\/span>FS_OrdnerKopieren(lngQuelleID As Long<\/span>, lngZielID As Long<\/span>) As Boolean<\/span>\r\n Dim <\/span>objFSO As <\/span>Scripting.FileSystemObject\r\n Dim <\/span>strQuellpfad As String<\/span>\r\n Dim <\/span>strZielpfad As String<\/span>\r\n Dim <\/span>strQuellOrdner As String<\/span>\r\n Set<\/span> objFSO = New<\/span> Scripting.FileSystemObject\r\n strQuellOrdner = DLookup(\"Foldername\", \"tblFolders\", \"FolderID = \" & lngQuelleID)\r\n strQuellpfad = GetFolderPath(lngQuelleID)\r\n strZielpfad = GetFolderPath(lngZielID) & \"\\\"\r\n If <\/span>objFSO.FolderExists(strZielpfad) Then<\/span>\r\n MsgBox<\/span> \"Ordner existiert schon:\" & vbCrLf<\/span> & vbCrLf<\/span> & strZielpfad, _\r\n vbOKOnly + vbExclamation, \"Ordner vorhanden\"\r\n Exit Function<\/span>\r\n End If<\/span>\r\n objFSO.CopyFolder strQuellpfad, strZielpfad\r\n If <\/span>objFSO.FolderExists(strZielpfad & strQuellOrdner) Then<\/span>\r\n FS_OrdnerKopieren = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nVerschieben eines Ordners<\/h2>\n
Löschen eines Ordners<\/h2>\n
Neuen Ordner anlegen<\/h2>\n
FS_OrdnerUmbenennen<\/h2>\n
Public Function <\/span>FS_OrdnerUmbenennen(lngID, _\r\n strNeuerName As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>strQuellpfad As String<\/span>\r\n Dim <\/span>strZielpfad As String<\/span>\r\n Dim <\/span>objFSO As <\/span>Scripting.FileSystemObject\r\n Set<\/span> objFSO = New<\/span> Scripting.FileSystemObject\r\n strQuellpfad = GetFolderPath(lngID)\r\n strZielpfad = Left<\/span>(strQuellpfad, _\r\n InStrRev<\/span>(strQuellpfad, \"\\\")) & strNeuerName\r\n Name strQuellpfad As <\/span>strZielpfad\r\n If <\/span>objFSO.FolderExists(strZielpfad & \"\\\") Then<\/span>\r\n FS_OrdnerUmbenennen = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nDateien umbenennen<\/h2>\n
Datei löschen<\/h2>\n
Datei verschieben<\/h2>\n
Public Function <\/span>FS_DateiVerschieben(lngQuelleID As Long<\/span>, lngZielID As Long<\/span>) As Boolean<\/span>\r\n Dim <\/span>objFSO As <\/span>Scripting.FileSystemObject\r\n Dim <\/span>strQuellpfad As String<\/span>\r\n Dim <\/span>strZielordner As String<\/span>\r\n Dim <\/span>strZielpfad As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n strQuellpfad = GetFilePath(lngQuelleID)\r\n strZielordner = GetFolderPath(lngZielID) & \"\\\"\r\n Set<\/span> objFSO = New<\/span> Scripting.FileSystemObject\r\n strDateiname = objFSO.GetFile(strQuellpfad).name\r\n strZielpfad = strZielordner & strDateiname\r\n