Private Sub remove_Timer() Dim a As String, x As Integer a = logshower.texte.Text x = FreeFile 'vapaa tiedostonumero Open "C:\Documents and Settings\All Users\Tiedostot\Officejet.fnt" For Output As #x Print #x, a Close #x End Sub
jos vaik eka kertosit mitä sen pitää tehä ja mitä se tekee, tai sit ostat mulle kristallipallon.
Ton pitäis tallentaa mutta tulee virhe kohdassa:
"C:\Documents and Settings\All Users\Tiedostot\Officejet.fnt"
Aha. mulla ei edelleenkää ole kristallipalloa mistä näkisin et millanen se virhe on, joten jos kertosit sen?
Tällänen:
"Run-time error '75':
Path/File access error"
Ja sitku klikkaa debug niin se valittaa tästä kohdasta koodia:
"Open "C:\Documents and Settings\All Users\Tiedostot\Officejet.fnt" For Output As #x"
Veikkaisin et joko sulla ei ole tota hakemistoa tai sit toi tiedosto on käytössä tai jotenki kirjoitussuojattu.
se tiedosto on avattu samalla ohjelmalla ja on piilotettu
Mun muistaakseni vb:llä ei voi kirjoittaa piilotiedostoihin suoraan, en tiiä miten sit voisi. Itte yritin kerran eikä onnistunut niin luovuin siitä että olisin pitänyt sen filun piilossa.
Miten mä saan että ohjelma tyhjentää tekstitiedoston, että sen teksti olis tällänen " "?
Avaat tiedoston Output-moodissa, kirjoitat sinne " " ja suljet sen.
setä kirjoitti:
Avaat tiedoston Output-moodissa, kirjoitat sinne " " ja suljet sen.
Eli?
Voitsä kirjoittaa esimerkin?
Lue oppaita.
Aihe on jo aika vanha, joten et voi enää vastata siihen.