Office: (Office 2016) Dateinamen auslesen und weiter verarbeiten

Kyron9000 · 23. März 2020

...das ist ja mal eine erfreuliche Aussage *Smilie

Cocco2 · 23. März 2020

Für alle Interessierten: Das ist meine Lösung des Problems
Die MsgBox nur temporär zur Kontrolle

Code:

Private Sub Befehl0_Click()
Dim varX As Variant
varX = DLookup("[dateiname]", _
"tblDateien", "[Löschung] = -1")
MsgBox "T:archivtest" & varX

On Error Resume Next
CreateObject("Scripting.FileSystemObject").DeleteFile "T:archivtest" & varX
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Cocco2 · 23. März 2020

Leider sind bei dem Post wiedereinmal die Backslashs verloren gegangen.
Sorry

knobbi38 · 23. März 2020

Hallo Coco,

in dem Fall braucht man tatsächlich nicht extra das FSO bemühen sondern es reicht eine einfache Kill-Anweisung und das On Error Resume Next sollte eventuell auch entfallen können:
Code:

Private Sub Befehl0_Click()
Dim strDateiname as String

strDateiname = nz( _
DLookup("[dateiname]","tblDateien","[Löschung] = -1"), _
vbNullstring)

MsgBox "T:\archivtest\" & strDateiname

if len(strDateiname) > 0 then
Kill "T:\archivtest\" & strDateiname
end if
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du must nur beachten, daß Dlookup nur einen Wert zurückliefern kann und dein Flag "-1" so nicht automatisch zurückgesetzt wird. Wiederholte Aufrufe würden also dazu führen, daß immer wieder versucht wird, dieselbe Datei zu löschen.

Wenn du den Backslash hier sicher darstellen möchtest, kannst du ihn durch "\" ersetzen, dann klappt es auch mit der Vorschau.

Gruß Ulrich

Office: (Office 2016) Dateinamen auslesen und weiter verarbeiten

Dateinamen auslesen und weiter verarbeiten

Dateinamen auslesen und weiter verarbeiten

Dateinamen auslesen und weiter verarbeiten

Dateinamen auslesen und weiter verarbeiten - Similar Threads - Dateinamen auslesen verarbeiten

Dateiname auch in Unterordner auslesen

Dateinamen aus Listbox auslesen und in Zelle schreiben

Dateinamen aus Ordner auslesen

Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen

Dateiname aus Dateidialog auslesen

Dateinamen aus einem Verzeichnis auslesen

alle Dateinamen aus Pfad auslesen, anzeigen und Datei drucken