nicku92gm Posted April 26, 2011 Report Share Posted April 26, 2011 Cum sa fac ca programul meu sa creeze un fisier text (cu numele din data respectiva) si sa se inregistreze in el tot ce se scrie intr-un TextBox? Quote Link to comment Share on other sites More sharing options...
Nytro Posted April 26, 2011 Report Share Posted April 26, 2011 Open "D:\Fisier.txt" For Append As #1Print #1, Text1.TextClose #1 1 Quote Link to comment Share on other sites More sharing options...
nicku92gm Posted April 26, 2011 Author Report Share Posted April 26, 2011 Multumesc, a mers! Quote Link to comment Share on other sites More sharing options...
nicku92gm Posted April 26, 2011 Author Report Share Posted April 26, 2011 Dar cum sa fac sa apara in loc de fisier data din ziua in care este?Open "D:\Fisier.txt" For Append As #1Print #1, Text1.TextClose #1 Quote Link to comment Share on other sites More sharing options...
Nytro Posted April 26, 2011 Report Share Posted April 26, 2011 Open "D:\" & Now() & ".txt" For Append As #1? Quote Link to comment Share on other sites More sharing options...
pr00f Posted April 26, 2011 Report Share Posted April 26, 2011 Dim dtmTest As DatedtmTest = DateValue(Now)?i folose?ti :Open "D:\" & dtmTest & ".txt" For Append As #1Edit : Nytro ai fost mai rapid -,-. Quote Link to comment Share on other sites More sharing options...
nicku92gm Posted April 26, 2011 Author Report Share Posted April 26, 2011 Am incercat prin ambele metode si nu merge imi da eroarea asta :Run-time error '76':Path not found Quote Link to comment Share on other sites More sharing options...
Nytro Posted April 26, 2011 Report Share Posted April 26, 2011 Fa asa, probabil nu te lasa sa folosesti acele caractere la numele de fisiere:Open "F:\" & Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & ".txt" For Append As #1Print #1, "Test"Close #1Si ai si functiile Hour, Minute si Secunde, formatezi tu cum vrei. Quote Link to comment Share on other sites More sharing options...