EnableExplicit Define lpFileName$ Define lpStatus #FILE_ENCRYPTABLE = 0 #FILE_IS_ENCRYPTED = 1 #FILE_READ_ONLY = 8 #FILE_ROOT_DIR = 3 #FILE_SYSTEM_ATTR = 2 #FILE_SYSTEM_DIR = 4 #FILE_SYSTEM_NOT_SUPPORT = 6 #FILE_UNKNOWN = 5 #FILE_USER_DISALLOWED = 7 If OpenLibrary(0, "Advapi32.dll") Prototype FileEncryptionStatus(lpFileName, lpStatus) Define FileEncryptionStatus.FileEncryptionStatus = GetFunction(0, "FileEncryptionStatusA") CloseLibrary(0) EndIf lpFileName$ = "D:\abc\abc.txt" FileEncryptionStatus(@lpFileName$, @lpStatus) Select lpStatus Case #FILE_ENCRYPTABLE Debug "Die Datei wurde noch nicht verschlüsselt." Case #FILE_IS_ENCRYPTED Debug "Die Datei wurde bereits verschlüsselt." Case #FILE_READ_ONLY Debug "Die Datei ist schreibgeschützt." Case #FILE_ROOT_DIR Debug "Es ist ein Verzeichnis." Case #FILE_SYSTEM_ATTR Debug "Es ist eine Systemdatei." Case #FILE_SYSTEM_DIR Debug "Es ist ein Systemverzeichnis." Case #FILE_SYSTEM_NOT_SUPPORT Debug "Das Dateisystem unterstützt diese Funktion nicht." Case #FILE_UNKNOWN Debug "Unbekannte Datei." Case #FILE_USER_DISALLOWED Debug "(Es wurde reserviert für zukünftige Verwendung.)" EndSelect