解決済

clip!clip!
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を使うのが普通です。
ファイルを読んでみて読めない(読めない理由は無いからだけとは限らないので本当は不適切)とか、
ファイルのコレクションを作ってその中に該当ファイルがあるかどうか調べるとかもできなくはないかと思いますけど。

>ウイルスソフトが反応するため
管理者がシステムをいじる必要があっていじってそれでウイルスソフトが警告がだすからといってやらないというのでは本末転倒だと思います。
回答レベル : アドバイス
Ads By Google

コメント

まだコメントがありません

トラックバック(2)

トラックバックURL: