např.:
Dim s As String
Dim n As Integer
n = FreeFile()
Open "C:\test.txt" For Output As #n
rem nebo
rem Open "C:\Test.txt" For Append As #n
rem připojí (nepřepíše)
s = "Hello, world!"
Debug.Print s ' write to immediate
Print #n, s ' write to file
Close #ncitovat
Dim s As String
Dim n As Integer
n = FreeFile()
Open "C:\test.txt" For Output As #n
rem nebo
rem Open "C:\Test.txt" For Append As #n
rem připojí (nepřepíše)
s = "Hello, world!"
Debug.Print s ' write to immediate
Print #n, s ' write to file
Close #ncitovat
RSS nejnovější články