Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateien und Ordner in den Papierkorb verschieben
zurück: 3-D Diagramm weiter: Tabelle in Email einbetten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nepumuk
VB / VBA Programmierer


Verfasst am:
13. Sep 2007, 01:42
Rufname: Max
Wohnort: Dusseldoof

Dateien und Ordner in den Papierkorb verschieben - Dateien und Ordner in den Papierkorb verschieben

Nach oben
       Version: Office 2k (2000)

Hallo,

die Anweisungen Kill und RmDir löschen Dateien und Ordner endgültig (naja fast endgültig, mit entsprechenden Programmen lassen sie sich wiederherstellen). Wenn eine Datei oder ein Ordner aber im Papierkorb landen soll, aus dem sie ganz einfach wiederhergestellt werden können, dann geht das so:

Code:
Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( _
    ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
End Type

Private Const FO_DELETE = &H3&
Private Const FOF_ALLOWUNDO = &H40&

Private Sub Move_to_Recycling_Bin(strFilename As String)
    Dim udtFileStructure As SHFILEOPSTRUCT
    With udtFileStructure
        .wFunc = FO_DELETE
        .pFrom = strFilename
        .fFlags = FOF_ALLOWUNDO
    End With
    SHFileOperation udtFileStructure
End Sub

Public Sub Beispiel()
    Call Move_to_Recycling_Bin("C:\test")       'Ordner (samt Inhalt) löschen
    Call Move_to_Recycling_Bin("C:\test.xls")   'Datei löschen
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
13. Sep 2007, 07:13
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: Dateien und Ordner in den Papierkorb verschieben - AW: Dateien und Ordner in den Papierkorb verschieben

Nach oben
       Version: Office 2k (2000)

Hallo,

nimmt den Beitrag aus den unbeantworteten heraus.

_________________
Gruß
Peter
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: letzte benutzte Dateien unter "Datei" anzeigen 4 Reichmann 1294 16. Jul 2007, 11:08
Gast letzte benutzte Dateien unter "Datei" anzeigen
Keine neuen Beiträge Excel Formeln: Verknüpfung CSV Dateien..."WERT" 3 Little Bird 568 03. Mai 2007, 14:34
watta Verknüpfung CSV Dateien..."WERT"
Keine neuen Beiträge Excel Formeln: zellinhalte verschieben 3 bronto 601 12. März 2007, 15:46
bronto zellinhalte verschieben
Keine neuen Beiträge Excel Formeln: Hilfe zu Bereich.Verschieben 0 ManuelaG 680 06. März 2007, 19:50
ManuelaG Hilfe zu Bereich.Verschieben
Keine neuen Beiträge Excel Formeln: csv Dateien 1 Lui 725 15. Jan 2007, 01:06
Hübi csv Dateien
Keine neuen Beiträge Excel Formeln: Postfach von Strasse trennen und in neue Zelle verschieben 2 danilabi 1400 08. Nov 2006, 20:30
danilabi Postfach von Strasse trennen und in neue Zelle verschieben
Keine neuen Beiträge Excel Formeln: Vertikalen Zellbezug horizontal verschieben 5 womanizer 3356 23. Okt 2006, 13:30
E4M Vertikalen Zellbezug horizontal verschieben
Keine neuen Beiträge Excel Formeln: Unterstrichene Worte verschieben 3 Michael82 462 21. Sep 2006, 08:26
< Peter > Unterstrichene Worte verschieben
Keine neuen Beiträge Excel Formeln: Bereich Verschieben - Ist ein Kriterium als Bezug möglich? 6 denise 2591 23. März 2006, 12:53
denise Bereich Verschieben - Ist ein Kriterium als Bezug möglich?
Keine neuen Beiträge Excel Formeln: Bereich verschieben Excel 2003 6 Ahnzi 6857 09. März 2006, 11:49
Ahnzi Bereich verschieben Excel 2003
Keine neuen Beiträge Excel Formeln: 2 Dateien vergleichen und Abweichungen in neue Tab kopieren 4 EvaB71 42570 22. Feb 2006, 16:32
EvaB71 2 Dateien vergleichen und Abweichungen in neue Tab kopieren
Keine neuen Beiträge Excel Formeln: Daten aus mehreren Dateien und Arbeitsblättern auflisten 2 aloys 1434 14. Feb 2006, 19:43
aloys Daten aus mehreren Dateien und Arbeitsblättern auflisten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA