[RESOLVED] change Directory path

[kankon]

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

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

[Bulldog]

From FileInfo you have the file name, prepend the URL to that string, or am I missing something?

[kankon]

still am looking for help
anyone ?

[ShadowTzu]

This code cannot work with a url. if you give us more detail about your url may be we can help you to extract the list.

[kankon]

i want this path music for list box

http://kankon.us/music

[ShadowTzu]

ok, I can't see any list of files because I am not registered. Which mean that is not easy to grab it by code.

[kankon]

but u can listen from line try, u don't need register

http://kankon.us/music/Diamonds_mobile.mp3

[ShadowTzu]

what you want is not grab only one file, but a list a files, without being registered we can't get this list.

[kankon]

ohh i see
so i need create shared folders server
how about make it with "OneDrive" its work or i need "dropbox" ?

[ShadowTzu]

I don't know, I never try

[kankon]

ok check this one from onedrive

https://onedrive.live.com/?cid=89968...CX1YUwHh3kOfqA

[kankon]

hum i just test its work now after change

Old

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

 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 ?

[ShadowTzu]

yeah, it's not a solution because you have the same link for every line.
I have found this:
http://www.codeguru.com/columns/dotn...from-code.html
with a access_token you can grab the list.

[kankon]

awesome , thank you very much ShadowTzu ,

[kankon]

found something wrong i need help again

so the correct director path
the red line

   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

that's mean from my pc my music folder
i want change it url this one (( https://onedrive.live.com/?cid=89968...CX1YUwHh3kOfqA ))
, anyone would help me

thank you