FSO 指定したドライブの種類を判別する
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |