VB6: bestanden zoeken op diskette

Thread View: be.comp.programming

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Cliff Beeckman Fri, 26 Sep 2003 18:33

#4122

Author: Cliff Beeckman
Date: Fri, 26 Sep 2003 18:33

11 lines
1797 bytes

Ik zou graag vanuit een menu de gebruiker een mogelijkheid willen bieden om
bepaalde bestanden op te halen van een diskette. Nadat men op de opdracht
heeft geklikt wil ik een melding weergeven 'Gelieve de diskette in drive A:
te plaatsen." vervolgens zou ik willen dat mijn programma alle bestanden met
de extensie .zin opspoort op de diskette (inclusief mappen en submappen) en
deze bestanden vervolgens in een lijst plaats. Iemand een idee hoe ik dit
kan aanpakken?

Alvast bedankt,

Cliff Beeckman.

Re: bestanden zoeken op diskette

#4123

Author: Jurjen de Groot
Date: Fri, 26 Sep 2003 21:21

36 lines
2195 bytes

Wat dacht je van het 'dir' commando.

   Dim sFileName As String

   sFileName = Dir("a:\*.zin", vbNormal)
   While sFileName <> ""
      List1.AddItem (sFileName)

      sFileName = Dir
   Wend

Bovenstaande zoekt alle *.zin bestanden op in A:\ en plaatst deze in een
listbox op het form.

gr. Jurjen.


"Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
news:cE%cb.42084$334.2015289@phobos.telenet-ops.be...
> Ik zou graag vanuit een menu de gebruiker een mogelijkheid willen bieden
om
> bepaalde bestanden op te halen van een diskette. Nadat men op de opdracht
> heeft geklikt wil ik een melding weergeven 'Gelieve de diskette in drive
A:
> te plaatsen." vervolgens zou ik willen dat mijn programma alle bestanden
met
> de extensie .zin opspoort op de diskette (inclusief mappen en submappen)
en
> deze bestanden vervolgens in een lijst plaats. Iemand een idee hoe ik dit
> kan aanpakken?
>
> Alvast bedankt,
>
> Cliff Beeckman.
>
>

Re: bestanden zoeken op diskette

#4126

Author: Cliff Beeckman
Date: Sat, 27 Sep 2003 09:06

45 lines
2551 bytes

Mag ik ook even vragen hoe ik bijv de eerste 3 tekens kan wegkapen van bijv.
"a:\test.zin" zodat enkel "test.zin" overblijft?

"Jurjen de Groot" <gits@xs4all.nl> schreef in bericht
news:3f74adbb$0$8928$e4fe514c@dreader8.news.xs4all.nl...
> Wat dacht je van het 'dir' commando.
>
>    Dim sFileName As String
>
>    sFileName = Dir("a:\*.zin", vbNormal)
>    While sFileName <> ""
>       List1.AddItem (sFileName)
>
>       sFileName = Dir
>    Wend
>
> Bovenstaande zoekt alle *.zin bestanden op in A:\ en plaatst deze in een
> listbox op het form.
>
> gr. Jurjen.
>
>
> "Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
> news:cE%cb.42084$334.2015289@phobos.telenet-ops.be...
> > Ik zou graag vanuit een menu de gebruiker een mogelijkheid willen bieden
> om
> > bepaalde bestanden op te halen van een diskette. Nadat men op de
opdracht
> > heeft geklikt wil ik een melding weergeven 'Gelieve de diskette in drive
> A:
> > te plaatsen." vervolgens zou ik willen dat mijn programma alle bestanden
> met
> > de extensie .zin opspoort op de diskette (inclusief mappen en submappen)
> en
> > deze bestanden vervolgens in een lijst plaats. Iemand een idee hoe ik
dit
> > kan aanpakken?
> >
> > Alvast bedankt,
> >
> > Cliff Beeckman.
> >
> >
>
>

Re: bestanden zoeken op diskette

#4127

Author: Jai Hendriks
Date: Sat, 27 Sep 2003 15:11

17 lines
1764 bytes

"Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
news:kqcdb.43305$R42.1787000@phobos.telenet-ops.be...
> Mag ik ook even vragen hoe ik bijv de eerste 3 tekens kan wegkapen van
bijv.
> "a:\test.zin" zodat enkel "test.zin" overblijft?
>

Dim r As String = "Welcome to the world"
r = r.Substring(8)

Substring 'chops' in dit voorbeeld de eerste 8 letter weg, dus r wordt "to
the world". Verander de string in de variabele die je hebt gevonden en
natuurlijk Substring(3).

Veel succes!
Jai Hendriks

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads