FC2ブログ
ブログパーツ アクセスランキング
インフラ情報まとめ
アクセスランキング
サーバー、クライアント関係の構築、運用等のまとめ書きです。旧名 ほぷぅ(。・ω・)ノPCまとめ

ドライブ関係1




にほんブログ村 IT技術ブログ IT技術メモへ

ドライブが存在するかどうかを調べる


1.DriveExists(2)


1 FileSystemObject

2 ドライブ名


入力されたドライブが存在するか表示(。・3・)

-------------------------------------------------

strPath = InputBox("確認するドライブ","確認","c:")
Set objFS = Createobject("Scripting.FileSystemobject")
If objFS.DriveExists(strPath) Then
MsgBox(strPath & " ドライブは存在します。")
Else
MsgBox(strPath & " ドライブは存在しません。")
End If

-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-DriveExists1

ほぷぅ(。・ω・)-DriveExists2


使用可能なすべてのドライブが存在するかどうかを調べる


1.Drives


1 FileSystemObject


ローカルマシンで利用可能なすべてのDrive一覧を表示します

準備がてきているのはTrue できていないのはFasleを表示します・・

-------------------------------------------------

str = "ドライブ情報" & vbCR
Set objFS = Createobject("Scripting.FileSystemobject")
For Each objDrive In objFS.Drives
str = str & objDrive.driveLetter & " - "
str = str & objdrive.IsReady & vbCR
Next
MsgBox str

-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-Drives

Driveオブジェクトを取得したい


1.GetDrive(2)


1 FileSystemObject

2 ドライブ名


ネットワーク共有名が指定された場合も調査できる。


ドライブの情報を表示します

-------------------------------------------------

'a = InputBox("0~2を入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\newfolder")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(strDrive & "ドライブの情報" & vbCR &_
"ファイルシステム:" & objDrive.FileSystem & vbCR &_
"ボリューム名:" & objDrive.VolumeName & vbCR &_
"シリアルナンバー:" & objDrive.SerialNumber)
-------------------------------------------------

実行結果

ほぷぅ(。・ω・)-DriveObject


Driveの数 使用可能な数を調べる


1.Count


1 Drivesコレクション

リムーバブルもメディアが挿入されてなくてもDRIVESコレクションには含まれる


利用可能なドライブ数を表示します

-------------------------------------------------
'a = InputBox("0~2を入力")

str = "ドライブ情報" & vbCR
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDc = objFS.Drives
MsgBox("ドライブ数:" & objDC.Count)

-------------------------------------------------

実行結果

ほぷぅ(。・ω・)-DriveCount


Driveの種類を調べたい


1.DriveType


1 Drivesオブジェクト


指定したドライブの種類を表示します

-------------------------------------------------

'指定されたドライブの種類を示す値を返す
'a = InputBox("0~2を入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
Select Case objDrive.DriveType
Case 0: MsgBox(strDrive & "不明(。・3・)")
Case 1: MsgBox(strDrive & "リムーバブルディスク")
Case 2: MsgBox(strDrive & "ハードディスク")
Case 3: MsgBox(strDrive & "ネットワークドライブ")
Case 4: MsgBox(strDrive & "CD-ROM")
Case 5: MsgBox(strDrive & "RAMディスク")
End Select

-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-DriveType


Driveの準備ができているか調べる


1.IsReady


1 Drivesオブジェクト


指定したドライブが使用可能か調べます(。・ω・)

-------------------------------------------------

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("r:\")
Set objDrive = objFS.GetDrive(strDrive)
If objDrive.IsReady = False Then
MsgBox(objDrive.DriveLetter & " - 準備ができていません")
Else
MsgBox(objDrive.DriveLetter & " - 稼働中です")
End If

-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-IsReady


Driveのファイルシステムを調べる


1.FileSystem


1 Drivesオブジェクト


FAT ,NTFS ,CDFSのいずれかを調べて表示します

-------------------------------------------------

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("d:\")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive & objDrive.FileSystem)
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-FileSystem

Driveの使用可能容量を調べる


1.AvailableSpace


1 Drivesオブジェクト


-------------------------------------------------

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive & objDriveLetter & "ドライブで使用可能な領域:" &_
FormatNumber(objDrive.AvailableSpace/1024,0) & "KB")
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-Availablespace


Driveのユーザーが使用可能容量を調べる


1.FreeSpace


1 Drivesオブジェクト


空き容量調査(。・ω・)♪

-------------------------------------------------

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive & objDriveLetter & "ドライブで使用可能な領域:" &_
FormatNumber(objDrive.FreeSpace/1024,0) & "KB")
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-FreeSpace

Driveまたはネットワーク共有の総容量を調べたい


1.TotalSize


1 Drivesオブジェクト


指定したドライブの総容量を表示します

-------------------------------------------------
Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive.DriveLetter & "ドライブの総容量:" &_
FormatNumber(objDrive.TotalSize/1024,0) & "KB")
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-TotalSize


Drive名を調べたい


1.DriveLetter


1 Drivesオブジェクト


指定したドライブのドライブ名を表示します・・・って分かってる気が・・します・・すごく・・

-------------------------------------------------

'ローカルドライブまたはネットワーク共有のドライブ名を返します。
'a = InputBox("0~2を入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\newfolder")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox("ドライブ名:" & objDrive.DriveLetter)
-------------------------------------------------

実行結果

ほぷぅ(。・ω・)-DriveLetter


Driveのネットワーク共有名を調べたい


1.ShareName


1 Drivesオブジェクト


'指定されたドライブのネットワーク共有名を返す

-------------------------------------------------
'a = InputBox("0~2を入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("\\HOPU\share ")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox("共有名:" & objDrive.ShareName)
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-ShareName

Driveのボリューム名を取得・設定したい


1.VolumeName [2]


1 Drivesオブジェクト

2 新しいボリューム名


ドライブ名の変更をします

リムーバブルディスクでメディアがセットされていないとエラー


-------------------------------------------------
Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
objDrive.VolumeName = "windows xp"
-------------------------------------------------

実行結果



ほぷぅ(。・ω・)-VoluemeName

Driveのディスクを識別するシリアル番号を調べたい


1.SerialNumber


1 Drivesオブジェクト


リムーバブルディスクでメディアがセットされていないとエラー


-------------------------------------------------

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName("c:\")
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive.DriveLetter & "ドライブのシリアルナンバー" &_
" : " & objDrive.SerialNumber)
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-SerialNumber

Driveのパスを調べたい


1.Path


1 Drivesオブジェクト


指定したドライブのパスを返す


c:\newfolderと入力すると c: だけが表示されます

-------------------------------------------------

a = InputBox("ドライブを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
strDrive = objFS.GetDriveName(a)
Set objDrive = objFS.GetDrive(strDrive)
MsgBox(objDrive.Path)
-------------------------------------------------

実行結果


ほぷぅ(。・ω・)-DrivePath1


ほぷぅ(。・ω・)-DrivePath2

関連記事







テーマ:プログラミング - ジャンル:コンピュータ


  1. 2010/08/28(土) 01:40:31|
  2. VBScript
  3. | トラックバック:0

トラックバック

トラックバック URL
http://pcmemorin.blog.fc2.com/tb.php/9-a93fdae7
この記事にトラックバックする(FC2ブログユーザー)


サイトマップ・お奨め記事

CentOS7 まとめ
Ubuntu14 まとめ
Ubuntu12用無線アダプタ紹介
Ubuntu12 まとめ
Server 2008R2 まとめ
SCCM2012R2 まとめ
Windows10 アップグレード
Windows7 まとめ
Windows7 SSD まとめ
Windows8 まとめ
EaseUS Todo Backup Server
Linux Destbision まとめ
Linuxコマンド関連Index
Zorin8.1まとめ
Fedora17まとめ
Fedora15まとめ
VB Script まとめ
USB3.0で快適バックアップ
リンク集・メール


スポンサードリンク


リンク


サイト登録Paseon

・はじめての自宅サーバ構築 - Fedora/CentOS -

・Fedoraで自宅サーバー構築

・CentOSで自宅サーバー構築

・ぼくんちのTV別館

・ネットセキュリティブログ

・まとめ横丁

・オールフリーソフト


相互リンク更新情報
BookMark
GPUベンチマーク(ドスパラ)
VMware OS仮想化
EaseUS
Fedora releases ISO
【Http外部からの表示確認】
ポートスキャンチェック
IPA情報処理推進機構
無料DNS ieServer
無料DNS-MyDNS
yahooログイン履歴チェック
メール不正中継拒否テスト
Fedora Project
allbootdisks
Edy Viewer
ESXi動作実績ハードウェア@Wiki
IEEE Standards

---ライセンス認証解除系リンク---
ShadowProtect Personal
.NET製品
弥生



--所有サーバーWiki--
NEC Express5800/S70
HP ProLiant ML110G5
PRIMERGY TX100 S3

このブログをリンクに追加する

カテゴリ

Linux (45)
Linux-CentOS7 (70)
Linux-Ubuntu14.04 (87)
Linux-Ubuntu12.04 (76)
Linux-Zorin8.1 (36)
Linux-Fedoras.soft (19)
Linux-Fedora18 (11)
Linux-Fedora17 (39)
Linux-Fedora15 (60)
Linux-Fedora11 (36)
Linux-Fedora16 (1)
Linux-Security (3)
Linux/Unix シェル (38)
Linux Distribution (53)
仮想OS (31)
Windows Server 2008 (254)
Windows Server 2012 (30)
Windows Server コマンド (39)
Windows Server アプリ (14)
Windows (40)
Windows 10 (3)
Windows 7 (59)
Windows 8 (257)
Windowsアプリ (23)
Windows 8 アプリ (29)
Windows レジストリ (6)
Windows BAT (17)
ネットワーク (5)
MySQL (1)
ニュース (8)
ハードウェア (11)
Windows VBScript-Basp21 (1)
VBScript (29)
Windows Vista (1)
Windows グループポリシー (3)
Security (6)
未分類 (4)
クールなアイテムまとめ (5)
Game (1)
PowerShell (4)


Linux ブログランキングへ

カテゴリ2

SCCM Backup 遠隔操作 VirtualBox FeliCaポート/パソリ ESXi 

カウンター

RSSリンクの表示

アクセスランキング

[ジャンルランキング]
コンピュータ
144位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
31位
アクセスランキングを見る>>



フィードメーター - ほぷぅ(。・ω・) ノ PCまとめ Linux,Win,自宅サ..


Windows ブログランキングへ

にほんブログ村 IT技術ブログ IT技術メモへ
にほんブログ村

全記事表示リンク

全ての記事を表示する

検索フォーム

RSSリンクの表示

 



Linux ブログランキングへ





<%plugin_third_title>

<%plugin_third_description>

<%plugin_third_content>

<%plugin_third_description2>