Dim fl As String = "F:\foxtable开发系统\患者登记系统\web" & e.path
改成
Dim fl As String = "F:\foxtable开发系统\患者登记系统\web\" & e.path