バックアップツールを作っています。 (ID:103567)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 (1)は、FileDateTimeを調べればできそうですね、 ただし、書式はまちまちですけど…。 (よく調べてないから不明…) (2)は、ファイルの存在を確かめてみます。 ファイルを読もうとして、存在したらふつう、なければエラー エラーがまわりに影響を与えないように、 別のSub(こう言うのが正しいのかどうか…。〜SubからEND Subまで)にして、 それを実行するといいと思います。 Public Function Check(Filename) As Boolean On Error Goto 1 Open Filename For Input As 1 Close 1 'エラーがなければこっち Check=True Exit Sub ’エラーが出ればこっち Close 1 Check=False END Sub ちなみに、戻り値がいらないときは、 引数をカッコで囲まなければいいんです。 これって意外と知られてないかも。