Miten saan avattua tiedoston jossain omassa VB-ohjelmassa? Siis kun sen avaa Explorerilla... Sooda joskus kerto jotain mikä ei toiminu :D
Ensin pitää kytkeä tiedostopääte omaan ohjelmaan, mikä tapahtuu uusissa Windowseissa valitsemalla Explorerissa Tools->Options ja sitten välilehti File Types. Avattavan tiedoston nimi taas välittyy ohjelmalle komentoriviparametrina, eli sen voi lukea ohjelmassa Command-muuttujasta. Jos Command on jotain muuta kuin tyhjä merkkijono, tiedosto avataan heti ohjelman käynnistyessä.
Juu, mutta mikä se koodi on, millä sen saa avaamaan sen tiedoston?
Minkälainen tiedosto pitäisi avata?
ihan mikä vaan, vaikka .txt...
Dim i As Integer, r As String Open App.Path & "\tiedosto.txt" For Input As #1 For i = 1 to 5 'kuinka monta riviä tiedostosta luetaan Input #1, r Msgbox r'ja tähän voi sitten vaihtaa sen mihin teksti sijoitetaan Next Close #1
Ja jos ei tolla onnistu niin kurkkaa putkan visual basic opasta ja sieltä kohtaa tiedosto funktiot.
Ääh, et nyt lukenu oikein, siis miten saan avattua Explorerilla tiedoston sisällön Textboxiin? Siis avaat .txt tiedoston Explorerilla, miten saan Textboxiin sen sisältävän tekstin?
Katos, tonha saa selville näin,
Private Sub Form_Load() MsgBox Command End sub
No nyt tulee error, Bad File name or Number.. koodi tässä
Private Sub Form_Load() On Error Resume Next If Command > "" Then MsgBox "Avataan " & Command, vbInformation, "JES" Open Command For Input As #1 teksti = Input(LOF(1), 1) Close #1 Else MsgBox "ei mitää avattavana", vbCritical, "!!!!!!!!!!!!!!!!!!!!!" End If End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.