jos avaan jonku tiedoston esim.
"open tiedosto for input as #1", niin minkälaisella koodilla voin tarkistaa ennen avausta onko tiedosto olemassa? kiitoksia vastaajalle..
"open tiedosto for input as #1", niin minkälaisella koodilla voin tarkistaa ennen avausta onko tiedosto olemassa? kiitoksia vastaajalle..
Vastaukset 5
Vanhimmat
Enpä ole VB:ssä törmännyt tuollaiseen, VBSriptissä sellainen kyllä on.
Mutta koska avaat tiedoston lukemista varten, niin "On Error" lauseellahan tuo selviää. Eli jotain tähän tyyliin:
On Error GoTo err
Open "tiedosto.txt" For Input As #1
Close #1
MsgBox ("Löytyy")
Exit Sub
err:
MsgBox ("Ei oo")
Ongelmasi taitaa olla juuri se, että ohjelma kaatuu, jos tiedostoa ei ole olemassa?
kyllä, eli ohjelma kaatuu jos sitä tiedostoa ei löydy. "on error goto.."-käskyllä se hoituis, mutta sitä en halua käytännöllisistä syistä käyttää siihen. kiitti kumminki...
Käytä Filesystemobjectia ... referoi ensin projektiisi (Project - References ..) Microsoft Scripting Runtime ... alla hieman koodia ...
Dim f As Scripting.FileSystemObject
Dim strFile As String
strFile = "c:joku.txt"
If f.FileExists(strFile) Then
.....
End If
kiitoksia, pienellä muuntelulla sain sillä toimiin:)...
dim tiedosto as string
tiedosto="c:test.txt"
Set script = CreateObject("Scripting.FileSystemObject")
If script.FileExists(tiedosto) = True Then
....
....
end if
Jos ei halua käyttää FileSystemObject niin tiedoston olemassaoloa voi testata myös Dir -funktiolla.
If Dir("C:Tempfuu.txt") vbNullString Then MsgBox "Löytyy!"