ファイルの保存名を自動的に変更したいのですが

質問

同じファイルを短時間（１～２分）のうちに保存したいのですが、
同ファイルだと上書き保存になってしまいます。
時刻をファイル名としてとも考えていますがよくわかりません。ＶＢは初級程度です。
出来るだけ簡単にご教授お願いいたします。

回答No.2

bouyapin · ベストアンサー

#1です。遅くなりました。
>（VBのコントロールの選択にＴＩＭＥＲがありません。）
vbですよね？表示→ツールボックス をクリックするとコントロールが表示されると思うんですが、
その中に時計の絵があるのでそれをダブルクリックするとフォームに追加できます。
それとも、もしかしてエクセルのvbaですか？

>ファイル名ー１　　ファイル名ー２　とか書けないでしょうか。

タイマーイベントのとこを書き換えてください。

Private Sub Timer1_Timer()
Static FCount As Integer
Dim FName As String
' 同一のファイル名を避ける為のファイル名につけるFName = "Test" + FCount
' ファイルをコピーする
FileCopy "コピー元のファイル名(フルパス)", _
"コピー先フルパス" & FName & "ファイルの拡張子"
FCount = FCount + 1
End Sub

これでいけると思ですが。

Timerコントロールでなくても Buttonコントロールの
クリックイベントに書いてもできますけど。

お礼

bouyapinさん

VB ソフト買ってきてトライします。

自分自身の低レベルさにショック。

補足

＞それとも、もしかしてエクセルのvbaですか？
あ、あたりです

”Ｍougの簡易時計”を使い工夫できないでしょうか？
申し訳ありません。宜しくお願いします

回答No.1

bouyapin

こんなのでどうでしょう？
FormにCheck1とTimer1を追加して下のコードを貼り付けてください。

Private Sub Check1_Click()
' TimerコントロールのON/OFF
Timer1.Enabled = Check1.Value
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
Dim TimeStampStr As String
' 同一のファイル名を避ける為のファイル名につけるタイムスタンプの作成
TimeStampStr = Format("yymmdd_hhmmss", Now)
' ファイルをコピーする
FileCopy "コピー元のファイル名(フルパス)", _
"コピー先フルパス" & TimeStampStr & "ファイルの拡張子"
End Sub

以上です。はずしていたら失礼

お礼

＃１さん回答有難うございます。質問に時刻・・・と書いたので、当然の回答ですよね。参考になります。

（VBのコントロールの選択にＴＩＭＥＲがありません。）

ファイル名ー１　　ファイル名ー２　とか書けないでしょうか。