Ads By Google
VBスクリプトでファイルを生成するソースを書いたのですがそれをバッチで実行するようにしてありますが
例えばPCが起動していなく実行できなかった場合次回実行時に「もしこの名前のファイルがなかったら先に作るはずだったファイルを作る」といったようなのが欲しいと思っております。こういうのはプログラムで先にファイル検索をさせて無かったら作るといった感じになるのでしょうか?
ファイル検索をさせるVBSはFileSystemObjectを使う方法になる以外に無いでしょうか?
(ウイルスソフトが反応するため・・・・・)
まだこの手の記述方法がわからないのでネットでサンプルを探したのですがなかったのでご存知の方ヒントをいただけないでしょうか?
よろしくお願いします。
例:VBSCRIPTを1月にタスク実行でAAA1.txtを作成。
2月にこのタスクを実行したとき先にAAA1.txtがあるかを確認してあればAAA2.txtを作る。
もし無ければAAA1.txtを作る条件を当てはめ作ってからAAA2.txtを作る。
2008-02-27 00:27の質問
この質問と回答を読んで役に立った場合は「役に立つ質問」に投票してください。投票が多い質問は、役に立つ質問一覧に掲載され、より多くの人に見てもらうことができます。
回答(2)
2.
2008-02-27 03:25:49

Dim fso, exeDate, m
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
exeDate = Date m = month(exeDate)
If m = 1 Then '実行日が1月
procNov '1月の処理を実施する
End If
If m = 2 Then '実行日が2月
If (Not fso.FileExists("AAA1.txt")) Then 'ファイルが存在しない時
procNov '1月の処理を実施する
End If
procFeb '2月の処理を実施する
End If
Sub procNov '1月に実行する処理
Dim file
Set file = fso.CreateTextFile("AAA1.txt") 'ファイルは上書きされる
'file.WriteLine "何か書き込む"
file.Close
End Sub
Sub procFeb '2月に実行する処理
Dim file
Set file = fso.CreateTextFile("AAA2.txt") 'ファイルは上書きされる
'file.WriteLine "何か書き込む"
file.Close
End Sub
回答レベル : アドバイス
1.
2008-02-27 03:02:05
>ファイル検索をさせるVBSはFileSystemObjectを使う方法になる以外に無いでしょうか?
FileSystemObject の FileExistsを使うのが普通です。
ファイルを読んでみて読めない(読めない理由は無いからだけとは限らないので本当は不適切)とか、
ファイルのコレクションを作ってその中に該当ファイルがあるかどうか調べるとかもできなくはないかと思いますけど。
>ウイルスソフトが反応するため
管理者がシステムをいじる必要があっていじってそれでウイルスソフトが警告がだすからといってやらないというのでは本末転倒だと思います。
FileSystemObject の FileExistsを使うのが普通です。
ファイルを読んでみて読めない(読めない理由は無いからだけとは限らないので本当は不適切)とか、
ファイルのコレクションを作ってその中に該当ファイルがあるかどうか調べるとかもできなくはないかと思いますけど。
>ウイルスソフトが反応するため
管理者がシステムをいじる必要があっていじってそれでウイルスソフトが警告がだすからといってやらないというのでは本末転倒だと思います。
回答レベル : アドバイス
Ads By Google
コメント
まだコメントがありません




