27. 03. 2006, 10:58
# 1
schuko1
VBA - Dateien löschen per Makro
Hallo! Als VBA-Neuling stehe ich vor einem mittelschweren Problem (wahrscheinlich lacht Ihr gleich.. ;-))
Ich möchte einen Button in eine Tabelle einbinden, über den dann per Makro aus einem bestimmten Verzeichnis Dateien gelöscht werden sollen. Das Verzeichnis enthält ca 400 Dateien und aus diesem Pool sollen ca. 80 - 100 gelöscht werden. Die zu löschenden Dateien folgen keinerlei Systematik (bunte Mischung aus xls, doc, pdf, ppt, was Ihr Euch sonst noch vorstellen könnt). Ich habe nun daran gedacht, die "Löschliste" in Form einer Textdatei an die DeleteFile-Anweisung zu übergeben, weiß aber leider nicht, wie ich sowas bewerkstelligen kann..
Für Hilfe - vielleicht auch ein kleines Codebeispiel - wäre ich Euch Koryphäen sehr dankbar! Gruß
Dieter
27. VBA - Dateien löschen per Makro - MS-Office-Forum. 2006, 11:49
# 2
Lumpensammler
Hallo, Dieter,
lässt sich relativ einfach auch durch die Verwendung der GetOpenFilename-Methode mit der Eigenschaft MultiSelect = True lösen. LS
27.
Vba Datei Löschen Pdf
mfG,
MAN
Zuletzt bearbeitet: 11. Mai 2005
Vba Datei Löschen Map
MVP für Developer Technologies)
Meine Homepage mit Tipps und Tricks
Als Antwort vorgeschlagen
Donnerstag, 11. Oktober 2018 08:27
Als Antwort markiert
Peter Doering MVP, Moderator
Donnerstag, 11. Oktober 2018 22:33
Vba Datei Löschen 7
Probier mal:
Dim DeinPfad = "D:\" '<-- hier Deinen Pfad eintragen
Dim LastWriteTimeVorRefresh1 = tLastWriteTime(DeinPfad)
Dim DeinVerzeichnis As New oryInfo(DeinPfad)
Dim LastWriteTimeVorRefresh2 = stWriteTime
fresh()
Dim LastWriteTimeNachRefresh1 = tLastWriteTime(DeinPfad)
Dim LastWriteTimeNachRefresh2 = stWriteTime
( String. Join (wLine,
$ "vor Refresh, Shared Method Time: {LongTimeString}",
$ "vor Refresh, Instance Method Time: {LongTimeString}",
$ "nach Refresh, Shared Method Time: {LongTimeString}",
$ "nach Refresh, Instance Method Time: {LongTimeString}"))
Es gibt die beiden Varianten GetLastWriteTime und GetCreationTime. Vba datei löschen pdf. Wenn eine Datei kopiert oder verschoben (und damit neu angelegt) wird, ändert sich die LastWriteTime nicht zwingend, aber die CreationTime ist neu,
Deshalb im Zweifel immer beide Werte testen. --
If Not Working Then Else NotTouch
Benutzer online 3
3 Besucher
Sonstige Problemstellungen »
Wir können sehen, dass wir den Inhalt nur gelöscht haben, während die Formatierung noch da ist. Dinge, an die man sich erinnern sollte VBA Clear Contents kann Daten aus einer Zelle oder einem bestimmten Zellbereich löschen. Inhalt löschen löscht nur die Daten aus den Zellen. Dies hat keine Auswirkungen auf die Formatierung der Zellen. FAQ 0002: Wie kann ich eine Datei oder einen Ordner löschen? - ActiveVB. Selbst wenn sich die Daten in einer bedingten Formatierung befinden, wird durch das Löschen des Inhalts die Formatierung der Zellen nicht gelöscht. Empfohlene Artikel Dies ist eine Anleitung zu VBA Clear Contents. Hier werden die Beispiele zum Löschen des Zelleninhalts mithilfe von Excel VBA-Code sowie praktische Beispiele und eine herunterladbare Excel-Vorlage erläutert. Sie können auch unsere anderen Artikelvorschläge durchgehen - Beispiele für die Verwendung von VBA Enum Spalten in Excel gruppieren VBA Delete Column Beispiel Verkettung in Excel
Stattdessen können Sie ReDim Preserve verwenden, um die Größe des Arrays zu ändern, wobei alle vorhandenen Werte erhalten bleiben. In der Praxis kann dies verwendet werden, um einen Teil eines Arrays schnell zu löschen. Position 3+ löschen
ReDim Preserve arrBeispiel(1 bis 2)
Sub ArrayLoeschen3()
'Position 3+ löschen
ReDim Preserve arrBeispiel(1 To 2)
'Größe auf 3 Positionen ändern
ReDim Preserve arrBeispiel(1 To 3)
MsgBox arrBeispiel(3)
Das gesamte Array mit einer Schleife durchlaufen – Werte zurücksetzen
Anstatt die Array-Werte mit Erase oder ReDim zu löschen, können Sie das gesamte Array in einer Schleife durchlaufen und jeden Wert zurücksetzen. Vba datei löschen 7. VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! Learn More!