Command1_click
Allows you to backup a source file and have the destination file name be the current date. Great for database backups!
AI
ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Исходный код
- Put this on form load... Private Sub Form_Load() Dim MyDate MyDate = Format(Date, "dddd, mmm d yyyy") Text1.Text = "C:\SourceDirectory\SourceFile.mdb" Text2.Text = "C:\DestinationDirectory\" + MyDate + ".mdb" - Put this on Command1 Click... Private Sub Command1_Click() FileCopy Text1.Text, Text2.Text
Оригинальные комментарии (3)
Восстановлено из Wayback Machine