Select Case e.path Case "scan" Functions.Execute("scan",e, path)End Select
------------
Dim e As RequestEventArgs = args(0)Dim path = args(1)Dim wb As new weui