Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: VB Tiedoston uudelleen avaaminen

diesel987 [12.06.2009 16:04:18]

#

Milläköhän komennolla VB tarkistaa, onko joku tiedosto jo valmiiksi avoinna?

Tarkoitus olisi tehdä lause vähän tähän malliin:
If [tiedosto on jo valmiiksi auki] then [sitä sun tätä]

Grez [12.06.2009 16:39:09]

#

Näkisin että koittaa avata sen yksityisesti (Lock Read Write) ja jos tulee virhe niin se oli valmiiksi auki.

Function IsFileAlreadyOpen(FileName as String) As Boolean
  Dim FNum as Integer
  FNum = FreeFile()
  On Error Resume Next
  Open FileName For Input Access Read Lock Read Write As #FNum
  IsFileAlreadyOpen = Err.Number <> 0
  If IsFileAlreadyOpen Then
    Err.Clear
  Else
    Close #FNum
  End If
End Function

Edellinen taitaa palauttaa True myös jos tiedostoa ei ole. Jos tämä on olennaista ottaa huomioon, niin virheen numerosta voinee päätellä kummasta on kyse.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta