Zufälliger Artikel

Problemstellung:

Wie kann ich eine Datei löschen?

Das Löschen von Dateien unter VBA wird durch die "Kill-Anweisung" ermöglicht.

Public Function DeleteFileVBA(strSource As String)
'*******************************************
'Name:      DeleteFileVBA (Function)
'Purpose:   Datei löschen
'Author:    Tommyk
'Date:      März 11, 2004, 04:17:25
'Inputs:    strSource=Pfad und Name der Quelldatei
'Output:
'*******************************************
On Error GoTo Err_Handler
    Kill strSource
    
Err_Handler_Exit:
    Exit Function
Err_Handler:
        Dim strErrString As String
        strErrString = "Error Information..." & vbCrLf
        strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
        strErrString = strErrString & "Description: " & Err.Description & vbCrLf
        MsgBox strErrString, vbCritical + vbOKOnly, "Error in Function: DeleteFileVBA"
        Resume Err_Handler_Exit
End Function

Aufruf:

DeleteFileVBA "H:\Test\*.txt"

würde alle Text-Dateien aus dem Verzeichnis "H:\Test" löschen

 

Ähnliche Artikel

Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Manchmal kann es sehr aufwändig sein immer wieder die gleiche
Messagebox zu programmieren um Sicherheitsabfrage einzubauen.

"Wollen Sie den Datensatz löschen?"
"Soll das Formular geschlossen werden?"
usw.

If MsgBox("Wollen Sie den Datensatz löschen?", _
 vbQuestion Or vbQuestion, "Löschen") = vbYes Then
     'Datensatz löschen
 End If

Besser wäre doch eine universielle Funktion.
z.B. so:

Function Security_Query(sMsg As String, _
     sTitle As String) As Boolean
     Dim iResult As Integer
     iResult = MsgBox(sMsg, _
         vbYesNo + vbQuestion, sTitle)
 
    Security_Query = (iResult = vbYes)
End Function

Dann wäre der Aufruf kürzer:

If Security_Query("Datensatz löschen ?", _
 "Löschen:") = True Then
     'Datensatz löschen ...
 End If

Der Funktion wird nur der MsgBox- Text und -Titel übergeben.

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png1.png3.png6.png8.png
Heute19
Gestern75
Diese Woche417
Dieser Monat1301
Total1191368

  • IP: 54.81.71.187
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

21. April 2018