Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ordner samt Unterverzeichnis und Files komplett weglöschen
Autor: -MAJOR_AMOK-
Datum: 30.01.03 10:23
Hab jetzt folgendes gefunden jetzt hab ich nur noch das Problem wie ich es Anwende Alle benötigten Konstanten, die API-Deklaration und die SHFILEOPSTRUCT-Struktur. ' KONSTANTEN DER FUNC ' Kopiert das File in pFROM nach pTo Private Const FN_COPY = &H2& ' Löscht das File in pFrom (pTo wird ignoriert) Private Const FN_DELETE = &H3& ' Verschiebt das File in pFROM nach pTo Private Const FN_MOVE = &H1& ' Umbenennen des Files in pTo Private Const FN_RENAME = &H4& ' KONSTANTEN DER FLAGS ' Undo Information -> Schiebt beim Löschen ' das (die) File(s) in den Papierkorb Private Const FNF_ALLOWUNDO = &H40& ' Bislang keine bekannte Funktion Private Const FNF_CONFIRMMOUSE = &H2& ' Handle zum Eltern-Fenster der ' Progress-Dialogbox (also Me.hwnd) Private Const FnF_CREATEPROGRESSDLG = &H0& ' Nur Files - KEINE ORDNER - wenn *.* als Source Private Const FnF_FILESONLY = &H80& ' Für diverse Stellen bei DEST (der "pTo" muss dann ' die gleiche Anzahl von Zielen aufweisen wie "pFrom" Private Const FnF_MULTIDESTFILES = &H1& ' ANTWORTET AUTOMATISCH MIT 'JA für alle' Private Const FnF_NOCONFIRMATION = &H10& ' Keine Abfrage für einen neuen Ordner, falls benötigt Private Const FnF_NOCONFIRMMKDIR = &H200& ' Bei Namenskollisionen im ZIEL wird ein neuer Name ' erzeugt (z.B. Kopie(2) von xy.tmp) Private Const FnF_RENAMEONCOLLISION = &H8& ' Zeigt keine Fortschritts-Dialogbox (fliegende Blätter) Private Const FnF_SILENT = &H4& ' Zeigt die Fortschritts-Dialogbox an, aber ohne Filenamen Private Const FnF_SIMPLEPROGRESS = &H100& ' Wenn FnF_RENAMECOLLISION gewählt wird, ' hNameMappings wird gefüllt (Anzahl) Private Const FnF_WANTMAPPINGHANDLE = &H20& ' Eine Funktion für vier Dateioperationen Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) _ As Long Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Public Function fDelete(Source As String, DelToTrash As _ Boolean, ShowDialog As Boolean) As Long ' DelToTrash: True, wenn in Papierkorb gelöscht ' ShowDialog: True, wenn zusätzlich Löschabfrage ' erfolgen soll Dim FileStructur As SHFILEOPSTRUCT Dim Flags As Long Flags = 0 If DelToTrash Then Flags = FNF_ALLOWUNDO If Not ShowDialog Then Flags = Flags Or FnF_NOCONFIRMATION With FileStructur .wFunc = FN_DELETE .pFrom = Check_NullChars(Source) .fFlags = Flags End With fDelete = SHFileOperation(FileStructur) End Function

Ordner samt Unterverzeichnis und Files komplett weglöschen	511	-MAJOR_AMOK-	30.01.03 09:43
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	294	-MAJOR_AMOK-	30.01.03 10:23
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	301	Dieter	30.01.03 10:25
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	232	-MAJOR_AMOK-	30.01.03 10:29
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	41	evil_uwe	30.01.03 10:49
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	260	-MAJOR_AMOK-	30.01.03 10:56
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	234	-MAJOR_AMOK-	30.01.03 11:06
Re: Ordner samt Unterverzeichnis und Files komplett weglösch...	38	evil_uwe	30.01.03 11:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen