Path = "\\xxxx\xccxzxzc\xzxzxz"
  ' ChDir Virker ikke og en s....
  'ChDir (Path) 'change to directory
    FileName = "*.*"
    first_file = Dir(Path & "\" & FileName)
    'check that file exist
    If first_file <> "" Then 'if no files then exit sub
      ' Det er der ingen grund til, da den ikke er skiftet
      ' ChDir (default_dir) ' Back to default directory
      MsgBox ("fil fundet : " & first_file)
    Else
        'Ingen Filer
        MsgBox ("Ingen Filer i " & Path & "\")
    End If
"bba" <bba.news@kandu.dk> skrev i en meddelelse
news:QaRA9.6445$HU.612323@news010.worldonline.dk...
> Jeg kan læse/skrive/omdøbe filer på min lokale maskine, men ikke når jeg
> benytter netværksdrev, har prøvet både mod XP og 98 med fuld adgang ??
> Hvad går galt ?? Path er ok, måske den skal være special mod
> netværksdrev ??
>
> Kode start:
> ChDir (path) 'change to directory
>   filename = "*.exc"
>
> 'check that file exist
>   first_file = Dir(filename)
>     If first_file = "" Then 'if no files then exit sub
>       ChDir (default_dir) ' Back to default directory
>       msgbox("fil fundet")
>     End If
> Kode slut :
>
> msgbox kommer aldrig frem når der benyttes netværksdrev ??
>
> Mvh, BBA
>
> --
> Leveret af:
> 
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>