Groups > comp.lang.basic.visual.misc > #1117

Re: VB.net (2010) Beginner Question: Directory Lists

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From	"DaveO" <djo@dial.pipex.com>
Newsgroups	comp.lang.basic.visual.misc
Subject	Re: VB.net (2010) Beginner Question: Directory Lists
Date	Fri, 25 May 2012 10:57:13 +0100
Organization	A noiseless patient Spider
Lines	41
Message-ID	<jpnl1k$ulj$1@dont-email.me> (permalink)
References	<ecf4ddec-cccd-4eaa-a24b-7a0e22213b9f@ns1g2000pbc.googlegroups.com> <XnsA0597EB282C2Bauricauricauricauric@88.198.244.100> <4739dd87-d142-4c46-b185-87a72a8ffdf0@t2g2000pbg.googlegroups.com> <jpgh91$7at$1@dont-email.me> <jpijth$h17$1@dont-email.me> <jpj2cv$cq5$1@dont-email.me> <jplv7n$e8p$1@speranza.aioe.org> <jpma7b$bsr$1@dont-email.me> <jpnihd$v7t$1@speranza.aioe.org>
Injection-Date	Fri, 25 May 2012 09:57:08 +0000 (UTC)
Injection-Info	mx04.eternal-september.org; posting-host="6lq56iu6vEJec5m8zn4zjg"; logging-data="31411"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/TwLgtmdak5u6FlGHoMitM"
X-MimeOLE	Produced By Microsoft MimeOLE V6.00.2900.6157
X-RFC2646	Format=Flowed; Response
X-Newsreader	Microsoft Outlook Express 6.00.2900.5931
Cancel-Lock	sha1:Pd2YQTc3/AHnOwH1LtHSMZep+9Q=
X-Priority	3
X-MSMail-Priority	Normal
Xref	csiph.com comp.lang.basic.visual.misc:1117

Show key headers only | View raw

"Schmidt" <sss@online.de> wrote in message 
news:jpnihd$v7t$1@speranza.aioe.org...
> And as for your posted Code-snippet - here's the VB6-Version:
>
> '***Into a VB-Form which hosts a ListBox and a MediaPlayer-Control
> '-------------------------------------------------
> Const MoviePath = "C:\Windows\Performance\WinSAT\"
>
> Private Sub Form_Load()
> Dim FName As String
>   FName = Dir(MoviePath & "*.wmv")
>   Do While Len(FName)
>     lstMovies.AddItem Left(FName, InStrRev(FName, ".wmv", , 1) - 1)
>     FName = Dir
>   Loop
> End Sub
>
> Private Sub lstMovies_Click()
>   WMP.URL = MoviePath & lstMovies.Text & ".wmv"
> End Sub
> '------------------------------------------------


Tsk, that's a bit over complicated, junk all the crap in the Load event and 
replace the Listbox with a FileListBox. Although admittedly that'll show the 
extensions that your code omits.



Yeah I know the FileListBox is rather ugly but if you want it simple........

Incidentally is
Left(FName, InStrRev(FName, ".wmv", , 1) - 1)
Quicker or better than:
Left$(FName, Len(FName) - 4)
Which given a 3 character extension should give the same result?

DaveO.

Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

VB.net (2010) Beginner Question: Directory Lists Sandwich <liam.whan@gmail.com> - 2012-05-19 22:10 -0700
  Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-20 10:24 +0100
  Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-20 09:41 -0400
  Re: VB.net (2010) Beginner Question: Directory Lists "Auric__" <not.my.real@email.address> - 2012-05-20 19:27 +0000
    Re: VB.net (2010) Beginner Question: Directory Lists Sandwich <liam.whan@gmail.com> - 2012-05-20 19:06 -0700
      Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-20 23:32 -0400
        Re: VB.net (2010) Beginner Question: Directory Lists Sandwich <liam.whan@gmail.com> - 2012-05-20 22:05 -0700
      Re: VB.net (2010) Beginner Question: Directory Lists Gordon Levi <gordon@address.invalid> - 2012-05-23 01:37 +1000
        Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-22 13:24 -0400
          Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 11:30 -0600
            Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-22 14:03 -0400
              Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 12:15 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-22 15:05 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 14:01 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-22 17:29 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 17:13 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-23 09:10 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-23 10:24 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 14:37 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-25 10:55 -0400
            Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-22 14:38 -0400
              Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 12:47 -0600
          Re: VB.net (2010) Beginner Question: Directory Lists Gordon Levi <gordon@address.invalid> - 2012-05-24 23:44 +1000
            Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-24 10:07 -0400
            Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-24 16:07 +0100
              Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-24 09:57 -0600
              Re: VB.net (2010) Beginner Question: Directory Lists Gordon Levi <gordon@address.invalid> - 2012-05-25 18:39 +1000
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-25 11:23 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists Gordon Levi <gordon@address.invalid> - 2012-05-27 23:07 +1000
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-27 16:44 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists ralph <nt_consulting64@yahoo.com> - 2012-05-27 17:12 -0500
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-30 07:04 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists ralph <nt_consulting64@yahoo.com> - 2012-05-30 02:36 -0500
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-31 08:54 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists ralph <nt_consulting64@yahoo.com> - 2012-05-31 10:33 -0500
                Re: VB.net (2010) Beginner Question: Directory Lists Gordon Levi <gordon@address.invalid> - 2012-05-30 23:19 +1000
                Re: VB.net (2010) Beginner Question: Directory Lists ralph <nt_consulting64@yahoo.com> - 2012-05-30 14:09 -0500
        Re: VB.net (2010) Beginner Question: Directory Lists GS <gs@somewhere.net> - 2012-05-25 13:44 -0400
          Re: VB.net (2010) Beginner Question: Directory Lists -mhd <not_real@invalid.com> - 2012-05-25 17:47 -0400
            Re: VB.net (2010) Beginner Question: Directory Lists GS <gs@somewhere.net> - 2012-05-25 19:51 -0400
      Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-22 11:09 -0600
        Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-23 13:07 +0100
          Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-23 10:14 -0600
            Re: VB.net (2010) Beginner Question: Directory Lists Schmidt <sss@online.de> - 2012-05-24 20:38 +0200
              Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-24 15:46 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-25 06:52 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists Schmidt <sss@online.de> - 2012-05-25 11:14 +0200
                Re: VB.net (2010) Beginner Question: Directory Lists "DaveO" <djo@dial.pipex.com> - 2012-05-25 10:57 +0100
                Re: VB.net (2010) Beginner Question: Directory Lists Schmidt <sss@online.de> - 2012-05-25 13:36 +0200
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-25 09:25 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-25 10:12 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-25 12:27 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-25 14:22 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists Schmidt <sss@online.de> - 2012-05-26 18:38 +0200
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-26 14:12 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Henning" <computer_hero@coldmail.com> - 2012-05-26 23:31 +0200
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-26 18:07 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-26 16:50 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-26 20:53 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Tom Shelton <tom_shelton@comcast.invalid> - 2012-05-26 20:31 -0600
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-27 09:49 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists Karl E. Peterson <karl@exmvps.org> - 2012-05-29 12:50 -0700
                Re: VB.net (2010) Beginner Question: Directory Lists "Mayayana" <mayayana@invalid.nospam> - 2012-05-29 19:14 -0400
                Re: VB.net (2010) Beginner Question: Directory Lists ralph <nt_consulting64@yahoo.com> - 2012-05-29 18:25 -0500
                Re: VB.net (2010) Beginner Question: Directory Lists "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-05-30 06:51 +0100

csiph-web