TIEDOSTOJEN KÄSITTELY
Tiedoston avaaminen käyttämällä CommonDialogia tapahtuu seuraavasti,
CommonDialogin ShowOpen-metodi näyttää Windowsin tiedoston avauslomakkeen.
Private sub avaa()
CommonDialog1.cancelerror=true
on error goto errors
CommonDialog1.Showopen
form1.Caption = CommonDialog1.Filetitle ' Tiedoston nimi sijoitetaan Formin otsikkoon
Filenumber= FreeFile' Annetaan vapaa tiedoston käsittelynumero
Open CommonDialog1.Filetitle For Input As #Filenumber ' Avataan lukua varten (For Input)
....Tiedoston käsittelyyn liittyvä koodi tähän....
Close #Filenumber
errors:
end sub
Tiedoston tallentaminen käyttämällä CommonDialogia tapahtuu seuraavasti,
CommonDialogin ShowSave-metodi näyttää Windowsin tiedoston tallennuslomakkeen.
Private sub tallenna()
CommonDialog1.cancelerror=true
on error goto errors
CommonDialog1.Showsave
Form1.Caption = CommonDialog1.filetitle ' Tiedoston nimi sijoitetaan Formin otsikkoon
Filenumber= FreeFile ' Annetaan vapaa tiedoston käsittelynumero
Open CommonDialog1.Filetitle For Output As #Filenumber ' Avataan kirjoitusta varten (For Output)
....Tiedoston käsittelyyn liittyvä koodi tähän....
Close #Filenumber
errors:
end sub