Member Avatar for xxn5

how to save ListBox in vb.net

Dim files() As String
files = Directory.GetFiles("C:\", "*.mp3")

Dim file As String
For Each file In files
    ListBox1.Items.Add(Path.GetFileName(file))
Next

output :
00001.mp3
00003.mp3
00005.mp3 ....

want to save all item wth Only filenam to another folder.

Edited by Reverend Jim because: Fixed formatting
  • 3 Contributors
  • 6 Replies
  • 217 Views
  • 1 Week Discussion Span
  • Latest Post Latest Post by chuchaykaw
Member Avatar for tinstaafl

Something like this might help:

For Each file As String In Directory.GetFiles("C:\", "*.mp3")
    File.Copy(file, "MyNewDirectory\" & Path.GetFileName(file))
Next

If you need to do it with only the names in the listbox

For Each name As String In ListBox1.Items
    File.Copy("C:\" & name, "MyNewDirectory\" & name)
Next

If you want the original file deleted replace File.Copy with Directory.Move. the arguments stay the same.

Edited by tinstaafl
Member Avatar for xxn5 
For Each name As String In ListBox1.Items
File.Copy("C:\" & name, "MyNewDirectory\" & name)
Next

Could not find file 'C:\00003.mp3_[10_controls]_[customizable]'.

when folder name added
C:\00003.mp3' already exists.

file in ListBox1 are located in diff folder and sub folder.

Edited by xxn5 because: edit
Member Avatar for tinstaafl

Make sure you have the proper order of the folder names. In my example 'C:\' is the source folder and '"MyNewDirectory\' is the destination folder.

Member Avatar for xxn5

it does find nor save file from sub folder

For Each name As String In ListBox1.Items
File.Copy("C:\" & name, "MyNewDirectory\" & name)
Next

it does save file from sub folder.
as ListBox1 has only filename.

Member Avatar for tinstaafl

One thing you can do is switch to a ListView with the view set to 'List'. It will look just like a listbox, but the advantage is that each item has a subitem collection property where you can add the folder and/or the complete path as a subitem. Only the filename will show but you can access the subitem with code to get the source folder for the file.

Member Avatar for chuchaykaw 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ListBox1.Text = My.Settings.history
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    My.Settings.history = ListBox1.Text
    My.Settings.Save()
End Sub
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.