function string get_FileSystem( strPath )
object objFSO, objDrive;
begin
set objFSO = CreateObject ( "Scripting.FileSystemObject" );
if ( IsObject (objFSO) ) then
try
set objDrive = objFSO.GetDrive( objFSO.GetDriveName( strPath ) );
if ( IsObject( objDrive ) ) then
//Available return types include FAT, NTFS, FAT, FAT32, and CDFS
return objDrive.FileSystem;
endif;
catch
MessageBox( "Unable to determine File System.", INFORMATION );
endcatch;
endif;
end;
Run Code Online (Sandbox Code Playgroud)
这是来自http://kb.acresso.com/selfservice/viewContent.do?externalID=Q107782