• ベストアンサー

VBAでタイムスタンプを比較して

VBAで色々とやろうとしているのですが、以下について教えてください。   c:\Documents\123.doc のタイムスタンプと d:\documents\123.Txt のタイムスタンプを比較して、 c:\Documents\123.doc のタイムスタンプが新しい時だけ、このファイルを d:\documents\123.Txt に上書きする。 その場合、文書は、Txtに変換?する。  特に、タイムスタンプの比較について教えて欲しいので、よろしくお願いします。

  • dogs59
  • お礼率77% (279/359)

質問者が選んだベストアンサー

  • ベストアンサー
  • popesyu
  • ベストアンサー率36% (1782/4883)
回答No.1

タイムスタンプの取得 FileDateTime("ファイル") タイムスタンプの比較 if FileDateTime("ファイル1") > FileDateTime("ファイル2") then msgbox("ファイル1>ファイル2") end if こういうことを質問されているのでしょうか??

dogs59
質問者

お礼

 はい。ありがとうございました。助かりました。

関連するQ&A

  • タイムスタンプ変更アプリを探してます

    Mac OSX Lion環境下でドキュメントやフォルダのタイムスタンプを簡単に変更できるアプリケーションを探しています。 ドキュメント一枚だけを指定して変更する場合や、フォルダ内の複数ファイル及びフォルダのタイムスタンプも変更する場合も想定しています。 タイムスタンプは作成日、変更日をそれぞれ指定でき、指定する日時の入力等が比較的簡単に指定できるものが良いです。 総じて使い勝手が良く、可能であればフリーウェアのものが理想です。 なければ有料のものでも結構です。 また、アプリケーションは日本語対応のものでなくても構いません。 よろしくお願いします。

    • ベストアンサー
    • Mac
  • タイムスタンプを比較するソフト

    重複メールを整理しようと思い、いくつかのツールで試しましたが整理できない重複メールがあります。 (元ファイル名の末尾に連番が付いたもので、サイズやタイムスタンプは同じ) タイムスタンプだけで比較するソフトがありましたら教えて頂けないでしょうか? WinXP Becky2、emlCheck、undupで試しました

  • C# でファイルのタイムスタンプの比較

    C# でファイルのタイムスタンプの比較 public class FileList {  long size;  DateTime time;  string name;    : があり、このクラスのファイルを比較するメソッドcmpを作りました。 private int cmp(FileList f) {  return (   (f.size < this.size) ? -1 :   (f.size > this.size) ? 1 :   (f.time > this.time) ? -1 :   (f.time < this.time) ? 1 :   this.name.CompareTo(f.name)); } しかし、USBメモリにコピーしたファイルの中に、同一と判断されないファイルが出てしまいます。原因を調べたら、USBメモリにコピーするときにタイムスタンプが変更するためとわかりました。 http://support.microsoft.com/kb/402160/ja 「奇数秒に作成されたファイルを NTFS パーティションから FAT パーティションにコピーすると、作成日時の繰り上げが発生します。」という記載があり、原因はわかりました。 しかし、後半には、「NTFS ドライブと FAT ドライブ上のファイルのタイムスタンプを比較する場合は、この動作を考慮する必要があります。 」とだけ記載がありますが、具体的に、プログラムで、どのように考慮したらよいのかわかりません。「2秒以内なら同じとみなす」といった処理をすればよい事はわかりますが、ここで詰まっています。ご教示お願いします。

  • タイムスタンプの使い方について

    22歳の男性です。 「タイムスタンプ」という言葉の使い方について確認したいことがあります。 タイムスタンプはデータの更新、作成が行われた日とインターネットに記されていました。自分は以下の使い方で合っていると考えているのですがどうでしょうか? A:「このファイルのタイムスタンプ教えて」 B:「2008年2月15日だよ」 他に応用的な使い方がありましたら教えてください。

  • タイムスタンプの更新の方法2

    前回の質問の方法が悪かったので改めて質問させていただきます。よろしくお願い致します。 現在開いていないファイルのタイムスタンプを任意の日時にエクセルVBAから変更する方法をご伝授頂けないでしょうか?タイムスタンプの取得は簡単に出来そうなんですが、書き込み方法が解らず困っています。 宜しくお願い致します。

  • 保存された同一ファイル名をタイムスタンプで比較

    フォルダAとフォルダBに、同じファイル名のもの100ファイルずつあります。 フォルダAに最新のファイルがあるもの、フォルダBに最新のファイルがあるものと、両方とも同じもの。 という感じで管理がバラバラになってしまっています。 さらにはフォルダAにしかないファイル、フォルダBにしかないファイルが、若干あって、さらに混乱している状態です。 ・フォルダAにあってフォルダBに無いもの。また、その逆。 ・フォルダAとBの両方にある場合、どちらが新しいか。 タイムスタンプ(更新日)で調査できるツールはないでしょうか? AikoWinというフリーツールで、ファイルの有無は確認できました。 http://www.vector.co.jp/vpack/browse/pickup/pw6/pw006112.html テキストを比較するものは多く見つかります。 しかし、タイムスタンプで比較するものが見つからなくて困っています。 よろしくお願いします。

  • フォルダ内の、最新のタイムスタンプのファイルを1つだけ取り出す(VBscript)

    フォルダ内に複数のファイルが存在しており、その中でタイムスタンプが一番最新のファイルをコピーしたいと考えているのですが、ファイル同士のタイムスタンプを比較する方法が見つけられませんでした。どなたかご存知の方がいらっしゃいましたら、教えて頂けませんか?

  • FFFTPのタイムスタンプ

    FFFTPでは、ホスト側のタイムスタンプを、更新ボタンを押すと、データの更新があるとリフレッシュすることが可能です。 ところで、一度FFFTPに接続して、そのまま置いておくと、その時点でのホストのタイムスタンプが、以後も引き継がれたままになってしまいます。 ダウンロードする場合のファイルは、それ以降に更新された場合には更新後のものなのですが・・・タイムスタンプは、最初にアクセスしたときのものになっています。 複数の人間で、ホムペやサイト管理をしていると、これではいささか困ってしまいます。 ソフトは立ち上げたままの状態にしておいて、ホストを参照するたびに、きちんとタイムスタンプも変わる(自動的に、リフレッシュする)方法があればご教授ください。

  • ファイルのタイムスタンプのPUT(エクセルVBA)

    エクセルのVBAでファイルのタイムスタンプを任意の数字で更新したいと考えています。 現在のタイムスタンプは、 Dim strFILENAME As String Dim strMSG As String strFILENAME = ThisWorkbook.FullName strMSG = FileDateTime(strFILENAME) で、ゲットできたのですが? プットが出来ません。単純に、 FileDateTime(strFILENAME) = strMSG としたら怒られました。 どなたか?詳しい方教えて頂けませんでしょうか? 宜しくお願い致します。 あと、自己努力で解決しようとヘルプで検索すると、FileDateTimeが出てきません。どのようにすれば、FileDateTimeの関連事項で書き込み方法が解るのでしょうか?宜しくお願い致します。

  • VBAでIf~Thenに条件をもう1つ

     以下のようにExcelのVBAでタイムスタンプを比較するところがあるのですが、比較ファイルがないものがありますその場合もthen以降を実行するには、どうすれば良いのでしょうか? If FileDateTime(Mydoc) > FileDateTime(Mydoc2) Then MsgBox "Mydoc" End If   ここで、Mydoc2が存在しないときも、MsgBox "Mydoc" を実行したいのですが。  ちなみに、Mydoc2のタイムスタンプが新しいときは、飛ばして次の命令文に進みます。  wかりにくい質問ですが、よろしくお願いします。

専門家に質問してみよう