Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function zGetFilesinDirectory(ByVal sDir As String, _
Optional ByVal sExtension As String = "") As FileInfo()
dim f as fileinfo()
If Not Directory.Exists(sDir) Then Return Nothing
Dim d As New DirectoryInfo(sDir)
f = d.GetFiles("*." + sExtension)
Return f
End Function
'Add to the Combo
dim f as fileinfo()=zGetFilesinDirectory("c:\temp\")
For i As Integer = 0 To f.Length - 1
Dim s As String = f(0).Name()
Combo.items.add(s)
Next