i can change Directory this code
the Directory path from C:\Users\user\Music
i want change it to URL : >> http://sitename/music
here the code
Code:
Public Class RingTones
Public musicNames(1000) As String
Private Sub RingTones_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arraycount As Integer = 0
My.Computer.FileSystem.CurrentDirectory =
My.Computer.FileSystem.SpecialDirectories.MyMusic
For Each File As String In
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
ListBox1.Items.Add(My.Computer.FileSystem.GetFileInfo((File)).Name)
musicNames(arraycount) = My.Computer.FileSystem.GetFileInfo((File)).FullName
arraycount = arraycount + 1
Next
End Sub
If your problem is solved please also mark the thread resolved
I use VS2015 (unless otherwise stated).
_________________________________________________________________________________
B.Sc(Hons), AUS.P, C.Eng, MIET, MIEEE, MBCS / MCSE+Sec, MCSA+Sec, MCP, A+, Net+, Sec+, MCIWD, CIWP, CIWA I wrote my very first program in 1979, using machine code on a mechanical Olivetti teletype connected to an 8-bit, 78 instruction, 1MHz, Motorola 6800 multi-user system with 2k of memory. Using Windows, I dont think my situation has improved.
Public Class RingTones
Public musicNames(1000) As String
Private Sub RingTones_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arraycount As Integer = 0
My.Computer.FileSystem.CurrentDirectory =
My.Computer.FileSystem.SpecialDirectories.MyMusic
For Each File As String In
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
ListBox1.Items.Add(My.Computer.FileSystem.GetFileInfo((File)).Name)
musicNames(arraycount) = My.Computer.FileSystem.GetFileInfo((File)).FullName
arraycount = arraycount + 1
Next
End Sub
New
Code:
Private Sub Form1_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arraycount As Integer = 0
My.Computer.FileSystem.CurrentDirectory =
My.Computer.FileSystem.SpecialDirectories.MyMusic
For Each File As String In
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
ListBox1.Items.Add("Https://onedrive.live.com/?cid=899689126101ff78&id=899689126101FF78%218281&ithint=folder,mp3&authkey=!ACX1YUwHh3kOfqA")
musicNames(arraycount) = My.Computer.FileSystem.GetFileInfo(((File))).FullName
arraycount = arraycount + 1
Next
End Sub
but the problem now its add full link in list lol
i can add only the name song ?
Last edited by kankon; Feb 26th, 2015 at 08:50 AM.
Public musicNames(1000) As String
Private Sub RingTones_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arraycount As Integer = 0
My.Computer.FileSystem.CurrentDirectory = My.Computer.FileSystem.SpecialDirectories.MyMusic
For Each File As String In
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
ListBox1.Items.Add(My.Computer.FileSystem.GetFileInfo((File)).Name)
musicNames(arraycount) = My.Computer.FileSystem.GetFileInfo((File)).FullName
arraycount = arraycount + 1
Next