Daten löschvorgang in progressbar zeigen?

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von FAtheone.

    Eben ^^
    Den Rest kannst du ja dann auslassen (Copy, Move, etc.)
    EDIT: VB.Net
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. 'UPGRADE_WARNING: Für die Struktur SHFILEOPSTRUCT müssen Marshalling-Attribute möglicherweise als ein Argument in dieser Declare-Anweisung weitergegeben werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"'
    3. Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
    4. ' KONSTANTEN DER FUNC
    6. ' Kopiert das File in pFROM nach pTo
    7. Private Const FN_COPY As Integer = &H2
    9. ' Löscht das File in pFrom (pTo wird ignoriert)
    10. Private Const FN_DELETE As Integer = &H3
    12. ' Verschiebt das File in pFROM nach pTo
    13. Private Const FN_MOVE As Integer = &H1
    15. ' Umbenennen des Files in pTo
    16. Private Const FN_RENAME As Integer = &H4
    19. ' KONSTANTEN DER FLAGS
    21. ' Undo Information -> Schiebt beim Löschen
    22. ' das (die) File(s) in den Papierkorb
    23. Private Const FNF_ALLOWUNDO As Integer = &H40
    25. ' Bislang keine bekannte Funktion
    26. Private Const FNF_CONFIRMMOUSE As Integer = &H2
    28. ' Handle zum Eltern-Fenster der
    29. ' Progress-Dialogbox (also Me.hwnd)
    30. Private Const FnF_CREATEPROGRESSDLG As Integer = &H0
    32. ' Nur Files - KEINE ORDNER - wenn *.* als Source
    33. Private Const FnF_FILESONLY As Integer = &H80
    35. ' Für diverse Stellen bei DEST (der "pTo" muss dann
    36. ' die gleiche Anzahl von Zielen aufweisen wie "pFrom"
    37. Private Const FnF_MULTIDESTFILES As Integer = &H1
    39. ' ANTWORTET AUTOMATISCH MIT 'JA für alle'
    40. Private Const FnF_NOCONFIRMATION As Integer = &H10
    42. ' Keine Abfrage für einen neuen Ordner, falls benötigt
    43. Private Const FnF_NOCONFIRMMKDIR As Integer = &H200
    45. ' Bei Namenskollisionen im ZIEL wird ein neuer Name
    46. ' erzeugt (z.B. Kopie(2) von xy.tmp)
    47. Private Const FnF_RENAMEONCOLLISION As Integer = &H8
    49. ' Zeigt keine Fortschritts-Dialogbox (fliegende Blätter)
    50. Private Const FnF_SILENT As Integer = &H4
    52. ' Zeigt die Fortschritts-Dialogbox an, aber ohne Filenamen
    53. Private Const FnF_SIMPLEPROGRESS As Integer = &H100
    55. ' Wenn FnF_RENAMECOLLISION gewählt wird,
    56. ' hNameMappings wird gefüllt (Anzahl)
    57. Private Const FnF_WANTMAPPINGHANDLE As Integer = &H20
    59. ' Eine Funktion für vier Dateioperationen
    61. Structure SHFILEOPSTRUCT
    62. Dim hWnd As Integer
    63. Dim wFunc As Integer
    64. Dim pFrom As String
    65. Dim pTo As String
    66. Dim fFlags As Short
    67. Dim fAnyOperationsAborted As Boolean
    68. Dim hNameMappings As Integer
    69. Dim lpszProgressTitle As String
    70. End Structure
    73. Public Function fDelete(ByRef Source As String, ByRef DelToTrash As Boolean, ByRef ShowDialog As Boolean) As Integer
    77. ' DelToTrash: True, wenn in Papierkorb gelöscht
    78. ' ShowDialog: True, wenn zusätzlich Löschabfrage
    79. ' erfolgen soll
    81. 'UPGRADE_ISSUE: SHFILEOPSTRUCT Objekt wurde nicht aktualisiert. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
    82. Dim FileStructur As New SHFILEOPSTRUCT
    83. Dim Flags As Integer
    85. Flags = 0
    86. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts FNF_ALLOWUNDO konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    87. If DelToTrash Then Flags = FNF_ALLOWUNDO
    88. If Not ShowDialog Then Flags = Flags Or FnF_NOCONFIRMATION
    90. With FileStructur
    91. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts FileStructur.wFunc konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    92. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts FN_DELETE konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    93. .wFunc = FN_DELETE
    94. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts FileStructur.pFrom konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    95. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Check_NullChars() konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    96. .pFrom = Check_NullChars(Source)
    98. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts FileStructur.fFlags konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    99. .fFlags = Flags
    100. End With
    102. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts SHFileOperation() konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    103. fDelete = SHFileOperation(FileStructur)
    104. End Function
    106. ' Alle Angaben müssen mit vbNullChar+vbNullChar
    107. ' abgeschlossen werden. Hier wird's noch mal geprüft
    108. Private Function Check_NullChars(ByRef S As String) As String
    109. If Mid(S, S.Length - 2, 1) <> vbNullChar & vbNullChar Then
    110. If Mid(S, S.Length - 1, 1) <> vbNullChar Then
    111. S = S & vbNullChar & vbNullChar
    112. Else
    113. S = S & vbNullChar
    114. End If
    115. End If
    116. Check_NullChars = S
    117. End Function
    119. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    120. fDelete("C:\blabla.txt", True, True)
    121. End Sub
    122. End Class

    Hab grad gesehen, dass hier einfach die Explorer Löschmethode aufgerufen wird. Aber eigentlich sollte das doch auch gehen oder?
    sonst weiss ich auch keine Lösung, denn File.Delete() hat keine Events, die beispielsweise den Löschfortschritt anzeigen...

    Grüsse
    Pascal

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „PascalN“ ()

    Einfach eine Funktion schreiben die sich Rekursiv aufruft und alle Dateien löscht, zuerst musst du aber die Dateien ermitteln die gelöscht werden sollen, also zuerst einmal Rekursiv alle Verzeichnisse durchlaufen und Dateien zählen.

    hab da noch eine idee, weis aber nict ob des geht:

    schau wie groß die datei vor dem speichern ist.
    und während dem speichern immer schaun wie größ die datei noch ist. keine ahnung ob man des während des löschvorganges prüfen kann.

    ali
    :P Mfg Aligator :P

    ...bzw. der jeweilige FAT/NTFS-Eintrag ausgenullt. Die Bits bleiben bestehen.
    Der einzig sinnvolle Fortschritt wäre sowas:

    -Dateigröße bestimmen (War dan nicht 'ne Funktion für?)
    -Dateien Löschen und von Gesamtgröße abziehen
    -%calculate

Facebook
Telefonspende