FSO 指定したドライブの種類を判別する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][FSO 指定したドライブの種類を判別する]
Option Explicit


Function FSODriveInfo(ByVal Drvpath As String)
'********************************************
'FSO 指定したドライブの種類を判別する
'********************************************

Dim fso, d, s, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(Drvpath)))
    Select Case d.DriveType
        Case 0: t = "不明"
        Case 1: t = "リムーバブル ディスク"
        Case 2: t = "ハード ディスク"
        Case 3: t = "ネットワーク ディスク"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM ディスク"
    End Select
s = Drvpath & " = DriveLetter:"
s = s & d.DriveLetter & ",DriveType: " & d.DriveType & "(" & t & ")"
s = s & ",SerialNumber: " & d.SerialNumber
FSODriveInfo = s

End Function


Private Sub test()
FSOSetDLL 'FSO参照設定
Debug.Print FSODriveInfo("D:\")
'D:\ = DriveLetter:D,DriveType: 4(CD-ROM),SerialNumber: -999999999
End Sub





Production Japan Import Application. Since 1998