WSH VBScriptについて

質問

VBSの初心者（プログラミングも）なのですが、WSH　VBScriptについて教えていただきたいことがあります。

フォルダの有無を確認し、フォルダがあれば、更新を行い、
なければ終了するという内容のバッチを作りたいのですが、
どうやってもうまくいきません。

ちなみに更新内容は、更新日付をみて、20081120よりも前の
ファイルだった場合、更新を行い、同じかそれよりも新しければ
更新は行いません。

ちなみに、更新を行う場合は、パスワードを入力してから、
新しいファイルと入れ替える（上書き）というものです。

どのようなプログラムにすればよいのか、
お力添えをお願いいたします。

回答No.1

nda23 · ベストアンサー

フォルダ/ファイルの操作ですとWSHではなく、FileSystemObjectを
使う方が普通です。

Sub Sample(FolderName) 'パラメータはフォルダ名
Dim FSO, FLD, FLS
Set FSO = CreateObject("Scripting.FileSystem.Object")
If Not FSO.FileExists(FolderName) Then
　　Exit Sub '存在しなければ終了
End If
For Each FLS In FSO.GetFolder(FolderName).Files
　　If FLS.DateLastModified < CDate("2008/11/20") Then
　　　　'★パスワードの入力
　　　　'★更新処理
　　End If
Next
パスワードの入力、ファイルの更新は仕様がはっきりしないので、
何とも言えません。InputBoxが安直ですが文字が隠蔽されません。
ファイルのコピーはFileSystemObjectのCopyFileメソッドが普通
ですが、ShellApplicationのCopyHere等もあり、好みによるとしか
言えません。
FileSystemObjectは下記URLを参照してください。
http://msdn.microsoft.com/ja-jp/library/cc409798.aspx

お礼

お早い回答、ありがとうございました。
作成することができました。