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

フォルダ関係 Script




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

フォルダオブジェクトを取得してフォルダの情報を表示


Set 1 = 2.Folder(3)


1 変数

2 FileSystemObject

3 フォルダのパス


フォルダのプロパティを参照する手段や操作するためのメソッドを提供

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

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

Set objFS = CreateObject("Scripting.FileSystemObject")
strPath = "c:\newfolder"
Set objFolder = objFS.GetFolder(strPath)
MsgBox(strPath & "のサイズ:" &_
FormatNumber(objFolder.Size/1024,2) & "KB")
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs folder


フォルダ内にあるすべてのフォルダを参照したい


SubFolders


隠しファイルやシステムファイルの属性も含む

'存在しない場合はエラー

すべてのサブフォルダを表示します(。・ω・)

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

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder("C:\Documents and Settings\")
str = objFolder.Path & "内のファイル" & vbCR
For Each objFC in objFolder.SubFolders 'Foldersコレクションを取得
str = str & objFC.Name & vbCR
Next
MsgBox(str)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs folders


フォルダ内にあるすべてのファイルを参照したい


1.Files


1 Folderオブジェクト


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

'隠しファイルやシステムファイルの属性も含む
a = InputBox("フォルダを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(a)
str = objFolder.Path & "内のファイル" & vbCR
For Each objFile in objFolder.Files 'Filesコレクションを取得
str = str & objFile.Name & vbCR
Next
MsgBox(str)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs files-1

ほぷぅ(。・ω・) ノ パソコンめも-vbs files-2

フォルダ内にあるファイルとフォルダ数を調べたい


1.Count


1 File or Folder コレクション


フォルダの数とファイルの数を返します(。・ω・)=b

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

'存在しない場合はエラー
a = InputBox("フォルダを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(a)
Set objSF = objFolder.SubFolders
Set objFC = objFolder.Files
MsgBox(a & "の情報" & "の情報" & vbCR &_
"フォルダ数:" & objSF.Count & vbCR &_
"ファイル数:" & objFC.Count)

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

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs count1

ほぷぅ(。・ω・) ノ パソコンめも-vbs count2

フォルダ内にあるファイルオブジェクトの情報を表示したい


1.Item(2)


1 File or Folder コレクション

2 ファイル名まはたはフォルダ名


'存在しない場合はエラー


指定したFileオブジェクトの情報を表示します

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

'a = InputBox("フォルダを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder("c:\newfolder")
Set objFC = objFolder.Files
MsgBox("new1.txt" & "の情報" & "の情報" & vbCR &_
"作成日:" & objFC.Item("new1.txt").DateCreated)

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

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs Item


フォルダ内にあるファイルを指定し親フォルダを表示


1.ParentFolder


1 File or Folder Object


指定したフォルダの親フォルダを調べて表示します

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

'存在しない場合はエラー
'a = InputBox("フォルダを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile("c:\newfolder\new1.txt")
MsgBox(objFile.Name & "の親フォルダ:" & objFile.ParentFolder)

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

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs parentFolder

フォルダがルートなのか調べたい


1.IsRootFolder


1 FolderObject


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

a = InputBox("フォルダを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(a)
If objFolder.IsRootFolder Then
MsgBox(objFolder.Path & "はルートフォルダです。")
Else
MsgBox(objFolder.Path & "はルートフォルダではありません。")
End If

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

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs IsRootfolder1

ほぷぅ(。・ω・) ノ パソコンめも-vbs IsRootFolder2

フォルダやファイルの属性を取得・設定したい


1.Attributes [=2]


1 File or Folder Object

2 =0 普通 =1 読みとり専門に設定 =2 隠し =3 1&2 =4 ? =5


指定したファイルやフォルダの属性を変更します

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

'存在しない場合はエラー
'a = InputBox("ファイルを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile("c:\newfolder\new1.txt")
objFile.Attributes = 0

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


フォルダやファイルの種類を調べたい


1.Type


1 File or Folder Object


指定したファイルやフォルダの種類を表示

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

'存在しない場合はエラー
'a = InputBox("ファイルを入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder("C:\Documents and Settings\Administrator\Favorites")
Set objFile = objFS.GetFile("c:\newfolder\new1.txt")
MsgBox(objFolder.Name & "の種類:" & objFolder.Type & vbCR &_
objFile.Name & "の種類:" & objFile.Type)

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

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs Type

フォルダやファイルを指定しその中の合計のサイズをバイト単位で返す


1.Size


1 File or Folder Object


フォルダのサイズを表示

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

a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(a)
MsgBox(objFolder.Path & "のサイズ:" &_
FormatNumber(objFolder.Size/1024,2) & "KB")
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs size1

ほぷぅ(。・ω・) ノ パソコンめも-vbs size2

フォルダやファイルを指定し作成日時と時刻を調べる


1.DateCreated


1 File or Folder Object


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

a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(a)
MsgBox(objFile.Name & "の情報:" & vbCR &_
"作成日時:" & objFile.DateCreated)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs DateCreated1

ほぷぅ(。・ω・) ノ パソコンめも-vbs DateCreated2


フォルダやファイルを指定し最終更新日時と時刻を調べる


1.DateLastModified


1 File or Folder Object


指定したファイルやフォルダが最後に更新された日時を表示します

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

a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(a)
MsgBox(objFile.Name & "の情報:" & vbCR &_
"最終更新日:" & objFile.DatelastModified)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs DateLastModified1

ほぷぅ(。・ω・) ノ パソコンめも-vbs DateLastModified2

フォルダやファイルを指定し最終アクセス日を調べる


1.DateLastAccessed


1 File or Folder Object


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

a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(a)
MsgBox(objFile.Name & "の情報:" & vbCR &_
"最終アクセス日:" & objFile.DatelastAccessed)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs DateLastAccessed1

ほぷぅ(。・ω・) ノ パソコンめも-vbs DateLastAccessed2

フォルダやファイルを指定し8.3形式の短い名前を返す


1.ShortName


1 File or Folder Object


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

a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(a)
MsgBox("ファイル名 => " & objFile.Name & vbCR &_
"8.3形式 => " & objFile.ShortName)
------------------------------------------------

実行結果


ほぷぅ(。・ω・) ノ パソコンめも-vbs shortname1

ほぷぅ(。・ω・) ノ パソコンめも-vbs shortname2

フォルダやファイルを指定し8.3形式の短いパスを返す


1 shortPath


1 File or Folder Object


------------------------------------------------
a = InputBox("入力")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(a)
MsgBox("ファイル名 => " & objFile.Path & vbCR &_
"8.3形式 => " & objFile.ShortPath)
------------------------------------------------

実行結果

ほぷぅ(。・ω・) ノ パソコンめも-vbs shortpath1

ほぷぅ(。・ω・) ノ パソコンめも-vbs shartpath2

関連記事







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


  1. 2010/08/27(金) 20:23:53|
  2. VBScript
  3. | トラックバック:0

トラックバック

トラックバック URL
http://pcmemorin.blog.fc2.com/tb.php/15-07ca372f
この記事にトラックバックする(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>