ファイルの監視

質問

ファイルの監視

ある特定のフォルダ内を監視して変更があればファイル名等のログファイルをテキスト形式で出力させる仕組みをVBSで作成したいのですが出来なくて困っております。

よろしくお願いします。

回答No.1

seastar3

大筋、次のようなコードが骨格となるのではないでしょうか。

' フォルダ内ファイルのチェック
Option Explicit
Dim objFS,KekkaObj
'
Dim hyoujibun
Dim KijunHizuke,SiteiFolder,objFolder,colFiles
Dim aFile
hyoujibun=""

' いつ以降のファイルの書き換えを調べるのかの日付を西暦で指定
KijunHizuke="2010/04/01"
'
Set objFS=CreateObject("Scripting.FileSystemObject")
Set KekkaObj=objFS.CreateTextFile("kekka.txt",true)

' 調べたいフォルダのパスの指定　.\ ならば、このスクリプトのあるフォルダ

を指定
'SiteiFolder="C:\"
SiteiFolder=".\"
'
Set objFolder = objFS.GetFolder(SiteiFolder)
Set colFiles = objFolder.Files

For Each aFile In colFiles
If DateValue(aFile.DateLastModified) >= CDate(KijunHizuke) Then
hyoujibun=hyoujibun & aFile.Name & vbTab & aFile.Size & vbTab &

aFile.DateLastModified & vbCr
End If
Next
msgbox hyoujibun,, "変更ファイル名リスト"
Set colFiles = Nothing
Set objFolder = Nothing
Set objFS = Nothing