Private Sub mnuHost_Click()
wsk.Close
wsk.LocalPort = 100
wsk.Listen
End Sub

Private Sub wskHost_ConnectionRequest(ByVal requestID As Long)
wsk.Close
wsk.Accept requestID
DoEvents
End Sub

Im trying to make a very simple httpd to host a given drive or directory, and be able to download from it thru the web, can anybody help finish this off i dont know how to access and display the drive/directory or be able to allow the user to download files.