Undersøg om sti findes

Jeg har lavet en on error, men den bliver ikke fyret af. Skal man gøre noget for at On Error Goto ... virker?

Næh, det burde da virke.

Private Sub Form_Load()
  On Error GoTo errHandler
  Dir1.Path = "\\streep\bredesager\GISKort\Foto"
  Exit Sub
errHandler:
  MsgBox "Drevet \\streep\bredesager\GISKort\Foto er ikke tilgængeligt"
  Dir1.Path = "c:\"
End Sub

errHandler bliver aldrig kørt, selvom streep er nede

prøv lige denne lille funktion
Private Function PathExists(pname) As Boolean
'  Returns TRUE if the path exists
    Dim x As String
    On Error Resume Next
    x = GetAttr(pname) And 0
    If Err = 0 Then PathExists = True Else PathExists = False
End Function

x = GetAttr(pname) And 0

? Prøv lige at forklar - er getattr en indbygget funktion, hvad gør den, og hvad betyder And 0?

"Invalig procedure" på getattr()

Jeg ville være tilfreds hvis bare on error goto virkede...

Tools -> options > General : Break on unhandled errors

Hej.

Endelig stiller Martin selv et spørgsmål, og så når jeg ikke at være med!

Jeg benytter følgende:

If Len(Dir(brandsti, vbDirectory)) > 0 Then
        filemp3.Path = brandsti
      Else
        X = MsgBox("Den sti der er angivet til depot for brænding eksisterer ikke.", 48, "Medd. fra 'opstart musikdatabase'.")
  End If

M.v.h.  Jørn

joern: Tak alligevel. Jeg stiller normalt kun spørgsmål når jeg for travlt til selv at søge efter et svar, eller hvis det er tilpas kompliceret (der skal nu ikke så meget til ;o)

Jeg kender ikke til at bruge Dir("d:\", vbDirectory)) - hvad menes der med vbDirectory, hvad returnerer Dir hvis - eller hvis ikke - d:\ findes?

Hej.

Den var lidt morsom!  Jeg bruger altid len(dir(.... for at tjekke at en mappe eller fil er tilstede.  Ved filer returneres filens navn (med versaler) men jeg ser nu, at ved en mappe returneres ascii(46) - punktum, når mappen findes.  Når en mappe ikke findes returneres ingenting - tom.
Men længden af et punktum er jo også større end nul :-)

M.v.h. Jørn

Så blev vi så kloge :o)

Selvom jeg ikke forstår hvad vbDirectory er for en størrelse - men jeg kan jo læse lidt om Dir når jeg får tid. Tak for hjælpen - vil du have points?

Hej Martin.

MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.

Det ser ud til at der vil blive returneret den første undermappe eller fil, hvis der ER nogen.

Point skal jeg selvfølgelig ikke have, har i øvrigt ikke brug for flere.

M.v.h.  Jørn

Hvad med:

dim objFso as FileSystemObject

Set objFso = CreateObject("Scripting.FileSystemObject")
if not objFso.FolderExists(Dir1.Path) then
  MsgBox Dir1.Path & " er ikke gyldig sti"
end if