Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Immer noch Papierkorb...
Autor: Sebastian
Datum: 23.01.02 14:59
Hm, ich habe immer noch mein Problem mit der Programmierung... also: ich möchte Dateien in den Papierkorb verschieben, ohne dass die Standardfrage "Wollen Sie die Dateien wirklich löschen?!" erscheint. Ich habe den vorgeschlagenen Quelltext von dieser Seite bereits ausprobiert - doch leider funktionierte er nicht fehlerfrei. Ich kann ja mal meinen bisherigen Quelltext angeben, vielleicht entdeckt ja jemand den Fehler... Also, im allgemeinen Bereich habe steht bei mir: --------------------------------------------------------------------------------------- Option Explicit Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) _ As Long Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Long hNameMaps As Long sProgress As String End Type Const FO_DELETE = &H3 Private Const FNF_ALLOWUNDO = &H40& --------------------------------------------------------------------------------------- Mein Programm sieht jetzt folgend aus: --------------------------------------------------------------------------------------- Private Sub Command1_Click() Dim File$, ShellInfo As SHFILEOPSTRUCT File = "c: est.txt" With ShellInfo .hWnd = Me.hWnd .wFunc = FO_DELETE .pFrom = File .fFlags = FNF_ALLOWUNDO .pTo = "" & Chr$(0) End With Call SHFileOperation(ShellInfo) End Sub --------------------------------------------------------------------------------------- Nur leider funktioniert das alles nicht... Sebastian

Immer noch Papierkorb...	58	Sebastian	23.01.02 14:59
Flags stimmen nicht	242	Dieter	23.01.02 22:52
Re: Flags stimmen nicht	34	Sebastian	24.01.02 16:55

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