Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Dateien eiens ordners löschen

Forumthread: Alle Dateien eiens ordners löschen

Alle Dateien eiens ordners löschen
08.09.2015 12:43:59
Hannes
Halli Hallo zusammen,
ich möchte gerne zu Beinn meines Makros alle Dateien in einen bestimmten Ordner löschen, der Ordner an sich jedoch soll erhalten bleiben (also nur geleert werden). tante Google hat mir eldier nicht geholfen, vielleicht habt ihr eine Idee? :)
DANKE im Vorraus, ihr seids spite!

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien eiens ordners löschen
08.09.2015 12:48:03
Nepumuk
Hallo,
ein Beispiel:
Public Sub AlleDateienLoeschen()
    Call Kill(PathName:="E:\Testordner\*.*")
End Sub

Gruß
Nepumuk

Anzeige
AW: Alle Dateien eiens ordners löschen
08.09.2015 12:51:22
Hannes
DANKE Nepumuk.
das habe ich gesucht. Funktioniert einwandfrei. Kurz und knapp wie ich es mag.
Besten Dank

AW: Alle Dateien eiens ordners löschen
08.09.2015 12:58:01
Hannes
autsch, kleiner Fehler meiner seits:
Der Ordner kann ab und an bereits leer sein. Derzeit bekomme ich dann eine Fehlermeldung. "Datei nicht vorhanden" Wie kann ich viorher prüfen ob ordner leer ist?

Anzeige
AW: Alle Dateien eiens ordners löschen
08.09.2015 13:06:37
Michael
Hi Hannes,
bau einfach ein on error drumrum, das ist bei Dateigeschichten eh immer sinnvoll.
Gruß,
Michael

AW: Alle Dateien eiens ordners löschen
08.09.2015 13:24:45
Daniel
Hi
du kannst mit der DIR-Funktion prüfen, ob der Ordner leer ist oder nicht:
if Dir("...\...\*.*")  "" then Kill "...\...\*.*"
Gruß Daniel

Anzeige
AW: Alle Dateien eiens ordners löschen
08.09.2015 13:47:01
Hannes
DANKE!
Beide Variante funktionieren,
habe es aber 
If Dir("D:\TEMP\*.*")  "" Then Call Kill(PathName:="D:\TEMP\*.*")
gemacht. Klappt super!
;

Forumthreads zu verwandten Themen

Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
VBA - Nur Unterordner einer best. Größe löschen
Gerd

Hallo werte Excelfreunde!
Mein Problem:
Ich möchte nur sämtliche Unterordner eines Ordners (z.B "C:\Test") löschen, die kleiner als 1MB sind. Vorher möchte ich noch deren Anzahl ermitteln.
In dem Hauptordner sind u.a. wohl um die 200 solcher Unterordner enthalten, sodaß ich die L...
17.02.2013 02:29:09
Thread-ID: 1299624
3 Beiträge
Doppelte Datei löschen mit VBS / VBA
Matthias

Hi zusammen
Ich habe in einem Windows Ordner zehntausende Dateien. Deren Namen sind wie folgt aufgebaut:
1234567 Matthias Muster.xlsx
1245751 Susanne Muster.xlsx
7544251 Martin Muster.xlsx
etc.
Nun habe ich letztens ein Batchscript laufen lassen, das nicht ganz das gemac...
17.02.2016 12:41:37
Thread-ID: 1476043
3 Beiträge
Per VBA Werte aus XML-Datei löschen
Lukas

Hallo zusammen,
und zwar stehe ich vor dem Problem, dass ich aus einem Excel-Dokument eine xml-Datei möchte, was auch funktioniert, aber öfters die Zahl 0 mit aufgenommen wird, was nicht sein soll. In Excel kann ich unter Optionen einstellen, dass eine 0 nicht angezeigt, aber sie bleibt fak...
30.11.2016 12:32:10
Thread-ID: 1528011
3 Beiträge
VBA-Löschen von Excel-Dateien mit bestimmtem Namen
Excel-Dateien

Guten Morgen,
mal die Frage in die Runde, ob jemand hierfür fix eine Lösung hätte. Wäre wirklich super. :-)
Ich möchte im Verzeichnis: "C:\Excel\Test" alle Dateien löschen, welche im Namen mit "JJMMTT" beginnen.
Dies sind alles .xlsx-Dateien, jedoch sind diese nach der Bezeichnung...
04.09.2019 08:29:09
Thread-ID: 1711077
3 Beiträge
Anzeige
XML Datei kann nicht geöffnet werden
Josef

Guten Morgen!
Ich wollte mit folgendem code (gefunden in der Recherche) eine xml Datei aus einem Arbeitsblatt erstellen:
Sub Erzeuge_xml() Dim Original As String Dim Kopie As String Dim t As Integer If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden...
18.11.2008 07:44:00
Thread-ID: 1025458
2 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
Zwischenablage lässt sich nicht löschen
Hugo

Hallo
Wie kann ich im folgenden Code beim schliessen der Datei verhindern, dass die Abfrage .. Zwischenablage erscheint
Mit Application.CutCopyMode = False passiert nichts.
Besten Dank und Gruss
Hugo
Sub Test() Dim objExcel As New Excel.Application Dim objSheet As Object Di...
25.10.2010 21:40:04
Thread-ID: 1183827
4 Beiträge
geöffnete Exceldatei kann nicht gesehen werden
R.Donner

Hi,
ich kann eine mir gesendete Excel-datei per Mail/über Outlook zwar öffnen, aber nicht sehen, geschweige denn bearbeiten. nur in der Vorschau zeigt er mir die Datei an. Was soll ich tun?? wenn die datei jedoch per Mail weiterschicke, dann kann der Empfänger die sehr wohl sehen und auch be...
30.05.2002 10:52:17
Thread-ID: 124743
2 Beiträge
Anzeige
Fehlermeldung: Datei kann nicht gespeichert werden
Larsen

Hallo,ich arbeite an einer Tabelle mit etwa 3300 Zeilen und 6000 Hyperlinks. Beim Anfügen neuer Zeilen meldet Excel beim ca. 5-6 Speicherversuch den Fehler: Datei kann nicht gespeichert werden.
Teilweise kann ich die auch die noch nicht gespeicherten Zeilen nichtmal mehr in die Zwischenablag...
24.06.2002 18:07:52
Thread-ID: 130999
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige