Zufälliger Artikel

Problemstellung:

Wie kann ich mit SHFileOperation eine Datei oder Verzeichnis löschen?

{xtypo_alert} Allgemeine Hinweise beachten {/xtypo_alert}
Public Function DeleteOperation(dateinamen$(), Optional boolSubFolder As Boolean = False)
'*******************************************
'Name:      DeleteOperation (Function)
'Purpose:   Löschen von Dateien und Verzeichnissen
'Author:    Tommyk
'Date:      März 11, 2004, 04:20:33
'Inputs:    dateinamen$()= Namen der Quelldateien + Pfad
'           boolSubFolder=True, mit Subfolder
'Output:
'*******************************************
Dim filenames$
Dim i As Integer
Dim shellinfo As SHFILEOPSTRUCT
For i = 0 To UBound(dateinamen)
    filenames = filenames & dateinamen(i) + Chr(0)
Next i
filenames = filenames + Chr(0)
With shellinfo
        .hWnd = Screen.ActiveForm.hWnd
        .wFunc = FO_DELETE
        .pFrom = filenames
        .pTo = "" + Chr(0)
        If boolSubFolder = True Then .fFlags = FOF_FILESONLY
End With
    DeleteOperation = (0 = SHFileOperation(shellinfo))
End Function

Aufruf:

Dim s$(0)
    s(0) = "H:\Test\*.dll"
    DeleteOperation s, True
würde aus dem Verzeichnis "H:\Test" alle DLL-Dateien löschen.
 

 

Ähnliche Artikel

Home

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

Problemstellung:
Wie kann ich die Mehrfachauswahl eines Listenfeldes speichern?

Lösung:
Als Bsp. habe ich mal Lehrer gewählt.
Im Listenfeld werden die verfügbaren Fächer angezeigt.
Jetzt kann man in dem Listenfeld alle Fächer auswählen die derjeweilige Lehrer unterrichtet.
Mit einem Klick auf den Button werden die gewählten Fächer in der DB gespeichert.
Die Anzeige im Form im unteren Feld (rot umrandet) ist nur zu Demozwecken.

 
 
Beim Anzeigen werden die Werte aus dem entsprechenden Feld gelesen und
automatisch wieder im Listenfeld markiert.

Und wie geht das nun? Seht Euch die Bsp-DB an.
 

Dateien:

Mehrfachauswahl eines Listenfeldes speichern

ab A00

Die Zip-Datei enthält ein Version ab A00

Datum 05.02.2018
Dateigröße 20.73 KB
Download 1.315

Ä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