Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

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

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

From "DaveO" <djo@dial.pipex.com>
Newsgroups comp.lang.basic.visual.misc
Subject Re: VB.net (2010) Beginner Question: Directory Lists
Date 2012-05-25 10:57 +0100
Organization A noiseless patient Spider
Message-ID <jpnl1k$ulj$1@dont-email.me> (permalink)
References (4 earlier) <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>

Show all headers | 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