バックアップツールを作っています。

解決

youji  2001-07-01 22:19:42  No: 103566  IP: [192.*.*.*]

ＶＢにてバックアップツールを作成しようと思うのですが、まだ
まだ初心者のためコーディング方法がわかりません。誰か簡単な
コーディング手法他ご伝授してください。尚、今回の仕様は以下
のようになります。

（１）差分バックアップ機能・・・更新、追加されたフォルダ及
びファイルのみバックアップ
（２）フォルダ同期機能・・・バックアップ元で削除されたフォ
ルダ及びファイルが存在する場合バックアップ先でも削除する。

よかったら誰か教えてください。よろしくお願いします。

編集 削除
たかみちえ  URL  2001-07-01 23:34:58  No: 103567  IP: [192.*.*.*]

(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
ちなみに、戻り値がいらないときは、
引数をカッコで囲まなければいいんです。
これって意外と知られてないかも。

編集 削除
たかみちえ  URL  2001-07-01 23:37:26  No: 103568  IP: [192.*.*.*]

(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
ちなみに、戻り値がいらないときは、
引数をカッコで囲まなければいいんです。
これって意外と知られてないかも。

編集 削除
ほっとけーき  2001-08-13 23:45:29  No: 103569  IP: [192.*.*.*]

わたしはプログラムをこれからはじめようと思っている身分ですが、別の解決策を思いつくことができます。
バックアップの内容にもよりますが、ファイルの内容をすべて新しいもので上書きすればよいのだと思いますよ。

編集 削除
youji  2001-08-22 21:41:35  No: 103570  IP: [192.*.*.*]

それはファイル数が少ないならいいんですが・・・。
ファイル数（２００００）にサイズが３００メガくらい
ありますから、差分じゃないとね。
・・・でもＤｉｒ関数やリストボックス（ファイル情報）
を駆使してなんとかやりました。。。

編集 削除
youji  2004-12-08 08:46:35  No: 103571  IP: [192.*.*.*]

それはファイル数が少ないならいいんですが・・・。
ファイル数（２００００）にサイズが３００メガくらい
ありますから、差分じゃないとね。
・・・でもＤｉｒ関数やリストボックス（ファイル情報）
を駆使してなんとかやりました。。。

編集 削除