サーバ内のフォルダ名と各フォルダのサイズを取得

解決済

質問者：keiji29
質問日時：2007/03/18 00:17
回答数：3件

VBS初心者ですが、上司に依頼されて、次の目的のVBSを
作成することとなりましたので、皆様の知恵をお貸し下さい。

１、業務サーバー内に50前後のフォルダが存在する。
２、そのサーバ内のフォルダ名とサイズ(MB表示）を取得する。
３、最終的には、取得したフォルダ名とサイズをcsvで出力する。

現在は、月一でサーバー内の各フォルダのプロパティからサイズを取得して、
エクセルで管理をしているのですが、毎月のようにフォルダが10個単位で増減しているため、
作業に取られる時間が馬鹿にならないので、VBSにて一覧取得をできないか
と相談されました。
私のスキルでは、各フォルダ毎のファイル名とサイズを取得することは
出来るのですが、出来れば、一度の操作で全部の作業を終わらせたいので、
皆様のお力をお貸し下さい。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： nicotinism
回答日時：2007/03/18 11:10

追伸。

http://www.vector.co.jp/soft/cmt/win95/util/se03 …
↑社内でフリーウェアの使用が認められていれば、このようなソフトは？
上記リンクは適当なフォルダに解凍して実行ファイルを開けば即座に実行されますし
（インストール不要なのでFDに入れておいて他PCでの作業も簡単）
ネットワーク対応、CSV出力対応なので楽チンです (^^ゞ

- 1
- 件

通報する

この回答へのお礼

社用の閉鎖環境のため、フリーウェアの使用が出来ないのですが、前回のご回答から、自分なりにソースをくみ直し、意図する動作を一応形作ることが出来、上司からOKを頂きましたことをお礼とともにご報告させて頂きます。

通報する

お礼日時：2007/03/18 23:29

No.2

回答者： nicotinism
回答日時：2007/03/18 01:53

こんな感じ？Excel VBAです。

chkDir を実行すると二番目のシートに書き出します。
標準モジュールにて。

Function GetSubDir(strTrgDir As String, Optional rRow As Integer)
　　Dim objFs As Object
　　Dim objDir As Object
　　Dim objFile As Object
　　
　　Set objFs = CreateObject("Scripting.FileSystemObject")
　　Set objDir = objFs.Getfolder(strTrgDir)
　　Set objFile = objDir.Files
　　
　　For Each objDir In objDir.SubFolders
　　　　If objDir.Attributes <> 22 Then
　　　　　　rRow = rRow + 1
　　　　　　Debug.Print "rRow = " & rRow, "folder = " & objDir.Path _
　　　　　　　　 , "size = " & Int(objDir.Size / 1024) & "Kbyte"
　　　　　　Sheets(2).Cells(rRow, 1) = objDir.Path
　　　　　　Sheets(2).Cells(rRow, 2) = Int(objDir.Size / 1024)
　　　　　　Sheets(2).Cells(rRow, 3) = "KB"
　　　　　　'Call GetSubDir(objDir.Path, rRow) '←サブフォルダを見に行きます
　　　　End If
　　Next
　　Set objFs = Nothing
　　Set objDir = Nothing
End Function

Sub chkDir()
　　Call GetSubDir("\\server\共有フォルダ名\")
End Sub

- 3
- 件

通報する

No.1

回答者： Gin_F
回答日時：2007/03/18 00:25

> 現在は、月一でサーバー内の各フォルダのプロパティからサイズを取得して、

> エクセルで管理をしているのですが、

これを使って、csv出力機能を追加するのが一番簡単な気がしますけど、ExcelVBAではなく
VBSでする必要があるのでしょうか？

とりあえず、テキストファイルを作成するのなら、

FileSystemObject の概要
http://msdn.microsoft.com/library/ja/default.asp …

TextStream オブジェクト
http://msdn.microsoft.com/library/ja/script56/ht …

ここらへんを使うとかでしょうか。