08. december 2005 - 07:18Der er
1 kommentar og 1 løsning
Skrive til en fil
Denne rutine skulle resultere i filen test.txt placeret på C drevets rod, det gør den bare ikke. Der sker intet, når jeg forsøger at gemme. Hvad har jeg gjort forkert?
Private Sub Command1_Click() TxtFilTest2 End Sub
Sub TxtFilTest2() Dim Filnummer As Integer Dim Filnavn As String 'unikt filnummer findes Filnummer = FreeFile Filnavn = "C:\test.txt" Open Filnavn For Output As #Filnummer Print #Filnummer, "Grundlæggende programmering med Visual Basic" Print #Filnummer, "Kapitel: Eksterne data" Close #Filnummer End Sub
Nu sidder jeg ikke lige ved en computer med vb, men jeg mener at der ikke skal være # ved filnummer når du åbner og lukker den, men er ikke sikker.
prøv flg.
Private Sub Command1_Click() TxtFilTest2 End Sub
Sub TxtFilTest2() Dim Filnummer As Integer Dim Filnavn As String
'unikt filnummer findes Filnummer = FreeFile Filnavn = "C:\test.txt" Open Filnavn For Output As Filnummer Print #Filnummer, "Grundlæggende programmering med Visual Basic" Print #Filnummer, "Kapitel: Eksterne data" Close Filnummer End Sub
thomaxz Den oprindelige kode virkede. Jeg sov vist bare i timen. Havde nok forventet, at der ville komme en meddelelse om at filen var etableret eller lignende. Men du får lidt for din ulejlighed. Tak for deltagelsen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.