FileListBox med internetadr. som path

File1.Path = "http:\\www.adresse.dk\mappe" mente jeg :)

det virker ikke fordi en filelistbox er til filer......

Du kan lave det med at lave linkfiler som din listbox så viser....

Eller lave en listbox.....hvor du gør følgende:

Private Sub List1_Click()
  Shell("Explore.exe, http://www.jubii.dk")
End Sub

Mener det er sådan har ikke tid til at test.....

/Tubber

Hmm.... Den skulle kunne afspille film fra en internet-mappe :)

Denne funktion åbner en fil fra internettet..

Lav en listbox og en commandbutton, indsæt derefter denne kode korrekt inden i:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String)
Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Function
Private Sub Command1_Click()
' Source: http://www.friserverplads.dk/basicpage/fil.txt


Dim strArray
Dim strText
  DownloadFile "http://www.friserverplads.dk/basicpage/fil.txt", "c:\windows\temp\soucedownload.txt"
  Open "c:\windows\temp\soucedownload.txt" For Input As #1
    Do Until EOF(1)
      Input #1, strText
      List1.AddItem strText
    Loop
  Close #1


End Sub


Mvh. NC.

Velkommen til at sende en mail: NorthCode@e-mail.dk ( www.northcode.tk }

Hmmmm... Først brugte jeg dette:

Private Sub Form_Load()
File1.Path = App.Path & "\movies"
End Sub

Private Sub Command1_Click()
MediaPlayer1.Open (File1.Path & "\" & File1.FileName)
MediaPlayer1.DisplaySize = 3
End Sub

Så prøvede jeg:

Private Sub Form_Load()
File1.Path = "http:\\www.hjemmeside.dk\mappe"
End Sub

Private Sub Command1_Click()
MediaPlayer1.Open (File1.Path & "\" & File1.FileName)
MediaPlayer1.DisplaySize = 3
End Sub

Men det virkede ik.. Den kommer med fejlen : Path not found...

Hvis der er nogen der er hurtige så svar inden en time så får i 200 point!

Og kantoraza <<< Det er jo ikke en *.txt-film, men en mpeg/wmv/avi og alle de andre film-formater... Pointen er jo at den skulle afspille den i et media-player-komponent... Hvis du forstår

lukker.

lukker... even