Avatar billede bba Nybegynder
14. november 2002 - 11:05 Der er 6 kommentarer og
1 løsning

VB60 og dir/path selection

Jeg har brug for følgende funktion i VB60

Brugeren skal kunne vælge Drev og Path, i et windowsmiljø.

1. Har forsøgt med CommonDialog, men her skal altid vælges en fil og det er kun path jeg er interreseret i at returnere, da filnavnet ikke kendes kun extentionen *.xxx

2. Har forsøgt med DriveListBox, og DirListBox, og det er også ret godt, men her vises kun mine fysiske drev og ikke mine netværksdrev.

Er der en af ovenstående som kan bruges med andre parametre eller skal der benyttes en anden kontrol.

Det skal for brugeren virke simpelt og overskueligt at navigere rundt i directory vælgeren !!

Mvh, BBA
Avatar billede martin_moth Mester
14. november 2002 - 11:20 #1
Hvis jeg smider en drivelistbox (Drive1), en dirlistbox (Dir1) og en filelistbox (file1) og smider følgende kode:

Private Sub Dir1_Change()
  File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
  File1.Pattern = ".txt" '<- kan udelades, så vises alle filer
End Sub

Så virker alt som det skal, og jeg kan også se samtlige netværksdrev...
Avatar billede martin_moth Mester
14. november 2002 - 11:22 #2
ups - skulle stå File1.Pattern = "*.txt"  - havde glemt *
Avatar billede bba Nybegynder
14. november 2002 - 11:28 #3
Hej Martin

Det ser også godt ud, men jeg kan kun vælge mine fysiske drev, og ikke mine netværksdrev ??

Kan godt se drevene ved benyttelse af CommonDialog ??

Til info kører jeg XP

Nogen Ide ??
Avatar billede martin_moth Mester
14. november 2002 - 11:34 #4
Næ - jeg kan uden besvær se samtlige drev - også netværksdrev (VB6 sp5 på win2000)... Hmmmm?
Avatar billede bba Nybegynder
14. november 2002 - 11:38 #5
Hej Martin

Havde lige lavet den brøler at det som jeg troede var mine netværksdrev kun var mine netværkssteder, da de blev oprettet som netværksdrev kunne de ses !!
Du får point da det lige gav svaret og hjælpen / tak BBA
Avatar billede martin_moth Mester
14. november 2002 - 13:23 #6
OK :o)
Avatar billede bba Nybegynder
14. november 2002 - 13:33 #7
Et tillægsspørgsmål

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

/BBA
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester