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
| 归档时间: |
|
| 查看次数: |
1734 次 |
| 最近记录: |