Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Dim images() As String
 
        images = Directory.GetFiles(Server.MapPath("~\pictures"), "*.gif")
 
        For Each file As String In images
 
            Response.Write(getVirtualUrl(file) & "<br>")
        Next
 
    End Sub
 
    Function getVirtualUrl(ByVal physicPath As String) As String
        Return "~" & physicPath.ToLower.Replace(Server.MapPath("").ToLower, "")
    End Function

Auf der Suche nach einem Hilfreichen Tutorial? Dann schau vorbei, auf http://tuts4you.de