Создание файла .txt и как сделать так чтоб он не изменялся при каждом запуске программы? - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim f As Integer
f = FreeFile
Open "C:\tmp" & "\amd.txt" For Output As f
Print #f, Date
Print #f, Time
Close f
End Sub

Так я создал файл, но при каждом запуске программы этот файл меняется (меняется дата и время в нём). А как сделать так чтобы файл один раз создался и при повторном запуске программы дата и время в этом файле больше не менялись?

Решение задачи: «Создание файла .txt и как сделать так чтоб он не изменялся при каждом запуске программы?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
If Dir$("C:\tmp\amd.txt",vbNormal)="" then
   f = FreeFile
   Open "C:\tmp" & "\amd.txt" For Output As f
   Print #f, Date
   Print #f, Time
   Close f
Else
   f = FreeFile
   Open "C:\tmp" & "\amd.txt" For Input As f
   line input #f,s$
   '...
   close #f
end if

Оцени полезность:

10 голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы