Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner löschen

Forumthread: Ordner löschen

Ordner löschen
07.08.2002 10:56:30
Frederik Fuhrmann
Hallo!

Wie ich eine Datei mit "kill" lösche, weiß ich ja, aber geht das auch mit einem ganzen Ordner?


Gruß
F.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ordner löschen
07.08.2002 11:26:20
L.Vira
herkömmlich mit rmDir(Ordner muss leer sein)
Oder mit FSO DeleteFolder(Vorsicht,löscht alles ohne Rückfrage)
Re: Ordner löschen
07.08.2002 11:27:53
Frederik Fuhrmann
Danke!

Gruß
F.

Re: Ordner löschen
07.08.2002 11:28:51
Michael Scheffler
Public Declare Function SHFileOperation Lib "SHELL32.DLL" Alias "SHFileOperationA" (lpFileOp As Any) As Long
Public Declare Sub SHFreeNameMappings Lib "SHELL32.DLL" (ByVal hNameMappings As Long)
' Copying
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As FO_Functions
pFrom As String
pTo As String
fFlags As FOF_Flags
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String 'only used if FOF_SIMPLEPROGRESS
End Type

Public Enum FO_Functions
FO_MOVE = &H1
FO_COPY = &H2
FO_DELETE = &H3
FO_RENAME = &H4
End Enum

Dim fileop As SHFILEOPSTRUCT
' Kill own SRM directory
With fileop
.hwnd = 0
.wFunc = FO_DELETE
.pFrom = strTempPath & vbNullChar & vbNullChar
.pTo = ""
.lpszProgressTitle = "Please wait, deleting temp files..."
.fFlags = FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION
End With

lRet = SHFileOP(fileop)

If lRet <> 0 Then ' Operation failed
MsgBox Err.LastDllError 'Show the error returned from the API.
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox "Remove operation Failed"
End If
End If

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige