check path

Hej.

Har lige læst i online hjælp.  Måske virker dette kun hvis der er mindst én fil i mappen.  Det må du selv tjekke.

If Len(Dir("c:\windows", vbDirectory)) > 0 Then MsgBox ("Det er der")

M.v.h.  Jørn

ummildbar virker det efter hensigten men kan du ikke lige forklare nnogen ting
hvad er Len ?
hvad er vbDirectory?

med hvad er mener jeg kan du ikke forklare disse paremeter :-) bare rolig du skal nok få poing

Hej.

Har du ikke online hjælp til din VB?  Dér står alle kommandoer og reserverede ord jo forklaret.

'Dir' af en mappe danner en streng, altså noget tekst
Man kan godt teste på om en streng er større end 'ingenting'
If dir("D:\minmappe")> "" then...

Jeg foretrækker at teste på længden af strengen med kommandoen 'Len' (Length)

VbDirectory er en mulig parameter til Dir,

Det med point går jeg såmænd ikke op i, jeg spørger sjældent mere og har over 10.000 point.

Godnat  m.v.h.  Jørn

Du kan også bruge FileSystemObject til at gøre det med. Sæt en reference til Microsoft Scripting Runtime og indsæt flg. kode

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
   
    If fso.FolderExists("c:\temp\") Then
        MsgBox "Biblioteket eksisterede!"
    End If
   
    Set fso = Nothing


VH CK

brug den indbyggede dir f.x. sådan

Public Function DirExist(dPath As String) As Boolean

  If Dir$(dPath, vbDirectory) <> "" Then
      DirExist = True
    Else
      DirExist = False
  End If

End Function

//vbcoder

Hej.

Fint med mange forslag.  Min gamle VB5 understøtter kun et lille antal FSO, så derfor er det sjældent det jeg foreslår.  Men der er sikkert ikke mange VB5-brugere tilbage i disse .net-tider.

M.v.h.  Jørn

joern = 10 point den jeg faktisk benytter
vbcoder = 5 = gav mig lidt at lege med