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"
>