Joo eli yritän kyhätä omaa notepaddia (:P) ja törmäsin tälläiseen ongelmaan.
Private Sub saveas_Click() On Error GoTo errori CommonDialog1.Filter = "Tekstitiedosto (*.txt*)|*.txt |htm -tiedostot (*.htm*) | *.htm" 'txt ja htm tiedostopäätteet CommonDialog1.FilterIndex = 1 'txt oletuksena CommonDialog1.ShowSave 'Näytä dialog dim tiedosto tiedosto = (CommonDialog1.FileName) 'Tiedoston nimen(mukana sijainti) asettaminen tiedosto -muutujaan Open tiedosto For Output As #1 Write #1, Me.dokumentti.Text Close #1 Exit Sub errori: Exit Sub End Sub
Ohjelman pitäisi tehdä uusi txt tiedosto ja kirjoittaa sinne mitä tekstilaatikossa lukee. Mutta ei :(
Auttakaas osaamatonta
EDIT: eeieiiiih löysin virheen 30 sek lähetyksen jälkeen.
dim tiedosto tiedosto = (CommonDialog1.FileName)
dim tiedosto puuttui
Joo mut tohon kanattaa laittaa näin:
If Not tiedosto = "" Then 'Eli jos tiedosto muuttuja ei ole tyhjä Open tiedosto For Output As #1 Write #1, Me.dokumentti.Text Close #1 else exit sub end if
Niin se kirjoittaa tiedostoon vain jos sen tiedosto muuttujan teksti ei oo tyhjä ^_^
Aihe on jo aika vanha, joten et voi enää vastata siihen.