Ｐａｇｅ 821 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ボリュームラベルを取得したいのですが たちぞう 03/3/4(火) 6:31 ┗Re:ボリュームラベルを取得したいのですが ichinose 03/3/4(火) 7:35 ┗Re:ボリュームラベルを取得したいのですが たちぞう 03/3/4(火) 13:04 ─────────────────────────────────────── ■題名 ： ボリュームラベルを取得したいのですが ■名前 ： たちぞう ■日付 ： 03/3/4(火) 6:31 -------------------------------------------------------------------------
| Moなどの内容を一覧にして管理したいのですが、パスの取得ではe:\などのドライブ名になってしまいます。これではどのMoでも同じになってしまいますのでMoドライブのプロパティ表示で表示されるボリュームラベルを取得できたら非常に便利なのですが、可能でしょうか？ |
| ▼たちぞう さん： おはようございます。 >Moなどの内容を一覧にして管理したいのですが、パスの取得ではe:\などのドライブ名になってしまいます。これではどのMoでも同じになってしまいますのでMoドライブのプロパティ表示で表示されるボリュームラベルを取得できたら非常に便利なのですが、可能でしょうか？ FsoのHelpに載ってました。 '========================================== Sub ShowVolumeInfo(drvpath) Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) s = "ドライブ " & d.DriveLetter & ": - " & d.VolumeName MsgBox s End Sub |
| 早速の回答ありがとうございます。 すばらしい！ すばらしいです。 ありがとうございました。 |