Private Function FileList(ByVal Dirpath As String) As String
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder
For Each f As String In Directory.GetFiles(Dirpath)
sb.Append(String.Format("{0}{1}", f, Environment.NewLine))
Next
Return sb.ToString
End Function
public