/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Filhåndtering i VB60
Fra : bba


Dato : 14-11-02 18:48

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"


 
 
Bo Christensen (17-11-2002)
Kommentar
Fra : Bo Christensen


Dato : 17-11-02 14:03



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



Tomas Christiansen (17-11-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 17-11-02 23:12

Bo Christensen skrev:
> Path = "\\xxxx\xccxzxzc\xzxzxz"

Bemærk at din Path IKKE indeholder et netværksdrev, men en UNC-path,
og derfor vil Windows ikke være i stand til at ændre 'current dir' til
dette.

Prøv at læse dokumentationen til ChDir:

"The required path argument is a string expression that identifies
which directory or folder becomes the new default directory or folder.
The path may include the drive. If no drive is specified, ChDir
changes the default directory or folder on the current drive."

Læg mærke til hvad der sker hvis stien ikke indeholder et drev:
'current drive' vil blive benyttet i stedet!

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177501
Tips : 31968
Nyheder : 719565
Indlæg : 6408522
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste