Mega Code Archive

 

Categories / Delphi / Files

 

Check if a files volume is NTFS

Title: Check if a files volume is NTFS uses ComObj; The function function IsNTFS(AFileName: string): Boolean; var fso, drv: OleVariant; begin IsNTFS := False; fso := CreateOleObject('Scripting.FileSystemObject'); drv := fso.GetDrive(fso.GetDriveName(AFileName)); IsNTFS := drv.FileSystem = 'NTFS' end; Example usage: if IsNTFS('X:\Temp\File.doc') then ShowMessage('File is on NTFS File System') else ShowMessage('File is not on NTFS File System')