Zufälliger Artikel

Allgemeines zu SHFileOperation:

Mit der API-Funktion "SHFileOperationA" ist es möglich die gleichen Dateioperationen wie im Explorer durchzuführen.
Es ist möglich mehrere Dateien oder Verzeichnisse gleichzeitig zu kopieren, zu löschen oder zu verschieben.

{xtypo_alert} Als Grundlage benötigt man die API-Deklaration und einige Konstanten.
Dieser Code muss sich in einem öffentlichen Modul im Modulkopf befinden.
{/xtypo_alert} 

'  Shell File Operations
Private Const FO_MOVE = &H1
'Datei(en)/Ordner Verschieben
Private Const FO_COPY = &H2
'Datei(en)/Ordner Kopieren
Private Const FO_DELETE = &H3
'Datei(en)/Ordner Löschen
Private Const FO_RENAME = &H4
'Datei(en)/Ordner Umbennenen
Private Const FOF_MULTIDESTFILES = &H1
'Jede Datei/Ordner bekommen ein anderen Zielpfad,
'diese Pfade müssen für jede Datei/Ordner in pTo angegeben werden
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4
'Zeigt keine Dialogbox mit Fortschrittsbalken an
Private Const FOF_RENAMEONCOLLISION = &H8
'Bei Datei/Verzeichnisnamenkollisionen werden die zu
'kopierenden/verschiebenden Dateien/Ordner umbenannt
Private Const FOF_NOCONFIRMATION = &H10
'Zeigt keinen Dialog an wenn einer zb. beim umbennen
'oder überschreiben angezeigt würde
Private Const FOF_WANTMAPPINGHANDLE = &H20
'Füllt die Struktur mit einem Pointer zu einer SHNAMEMAPPING-Struktur
'die alle umbenannten Datein/Ordner enthält die bei der Aktion umbenannt worden sind
Private Const FOF_ALLOWUNDO = &H40
'Rückgängig machen möglich machen, alle Dateien/Ordner Pfade
'müssen für diesen zweck voll ausgeschrieben werden
Private Const FOF_FILESONLY = &H80
'Die angegebene Aktion soll nur für Dateien verwendet werden
Private Const FOF_SIMPLEPROGRESS = &H100
'Zeigt einen Simplen Fortschrittsdialog an der nicht den Pfad
'der Dateien/Ordner anzeigt die Bearbeitet werden
Private Const FOF_NOCONFIRMMKDIR = &H200
'Zeigt keinen Dialog an wenn ein Ordner für einen
'Kopiervorgang erstellt werden muss
Private Type SHFILEOPSTRUCT
        hWnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Boolean
        hNameMappings As Long
        lpszProgressTitle As String
        'nur für FOF_SIMPLEPROGRESS
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long

 

Ähnliche Artikel

Home

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

Problemstellung:

Wie kann ich DB-Properties schreiben?

Verweis auf die Microsoft DAO 3.X Object Library erforderlich

  

Public Function SetProp(strEigenschaftenname As String, varEigenschaftentyp As Variant, _
                        varEigenschaftenwert As Variant) As Integer
'*******************************************
'Name:      SetProp (Function)
'Purpose:   Setzen von Datenbank Einstellungen
'Author:    Thomas Keßler
'Date:      Dezember 15, 2002, 11:04:37
'Inputs:    strEigenschaftenname= Die Eigenschaft die gesetzt werden soll
'           varEigenschaftentyp = Typ der Eigenschaft, 
'           varEigenschaftenwert = Wert der Eigenschaft
'Output:    gibt True zurück wenn Eigenschaft eingestellt wurde, sonst False
'*******************************************
    Dim db As DAO.Database
    Dim prp As Property
    Const conPropNotFoundError = 3270
    Set db = CurrentDb
    On Error GoTo Aendern_Fehler
    db.Properties(strEigenschaftenname) = varEigenschaftenwert
    SetProp = True
Aendern_Ende:
    Exit Function
Aendern_Fehler:
    If Err = conPropNotFoundError Then  ' Eigenschaft nicht gefunden.
        Set prp = db.CreateProperty(strEigenschaftenname, _
            varEigenschaftentyp, varEigenschaftenwert)
        db.Properties.Append prp
        Resume Next
    Else
        ' Unbekannter Fehler.
        SetProp = False
        Resume Aendern_Ende
    End If
End Function

Aufruf:

Call SetProp("AllowBypassKey", DB_BOOLEAN, False

Würde den Zustand der der Property "Shift-Taste zulassen" auf False setzen,
also die Shift-Taste wäre gesperrt.

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png1.png6.png6.png7.png
Heute1
Gestern84
Diese Woche224
Dieser Monat1600
Total1191667

  • IP: 54.161.45.156
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

26. April 2018