[LSV]

расскажите поподробней плиз об вот этих строчках:

FileName = Replace(CStr(Now), " ", "=")
FileName = Replace(CStr(FileName), ":", "-")
FileName = Replace(CStr(FileName), ".", "-")
FileName = App.Path & "\" & FileName & ".txt"

вот мой код:

Option Explicit
Private FileName As String
Private TextReport As String



Private Sub cmd1_Click()
txt1 = ""
End Sub

Private Sub cmd2_Click()
MakeReport
SaveReport
ViewReport

End Sub

Private Sub cmd3_Click()
End
End Sub




Private Sub MakeReport()
TextReport = txt1.Text
End Sub


Private Sub SaveReport()
FileName = App.Path & "\" & ".txt"

End Sub

Private Sub ViewReport()
Open FileName For Output Access Write As #1
Print #1, TextReport
Shell "notepad " + FileName, vbNormalFocus
Close #1

End Sub

значит после нажатия клавиши сохранить открывается guestbook.txt текста в нем нет, а в блокноте кот лежит вместе с сохраненным проектом (после того как ты закрыл пустой блокнот и открыл тот что в папке корневой) мой текст который я писал
не могу понять где я оступился!?:7: