Question

求大神解决~

“/”应用程序中的服务器错误。
参数“Length”必须大于或等于 0。说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.ArgumentException: 参数“Length”必须大于或等于 0。

源错误:

行 165: Dim a = InStr(1, reversefilename, "\") - 1
行 166:
行 167: Dim b As String = Left(reversefilename, a)
行 168:
行 169: Dim c = InStr(1, b, ".") - 1

源文件: D:\sgjy20080519\oa\sender.aspx.vb 行: 167

堆栈跟踪:

[ArgumentException: 参数“Length”必须大于或等于 0。]
Microsoft.VisualBasic.Strings.Left(String str, Int32 Length) +149191
sgjy.WebForm11.Submit1_ServerClick(Object sender, EventArgs e) in D:\sgjy20080519\oa\sender.aspx.vb:167
System.Web.UI.HtmlControls.HtmlInputButton.OnServerClick(EventArgs e) +105
System.Web.UI.HtmlControls.HtmlInputButton.RaisePostBackEvent(String eventArgument) +106
System.Web.UI.HtmlControls.HtmlInputButton.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +7
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +11
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +5102

Answer 1

报错很清晰：参数“Length”必须大于或等于 0
InStr(1, reversefilename, "\") - 1<0了呗，
在reversefilename中找不到"\")

追问

我想知道怎么解决，能详细点吗

追答

你为什么要减一啊？

追问

我不是学编程的，这些都不懂。

追答

两种方法：
1.把165行的“-1”删掉

2.把167行改为：
Dim b As String
if a<0 then
b = Left(reversefilename, a)
end if

追问

有QQ吗，远程协助下。

追答

那你直接按第一种方法好了，就按两下删除键就完事儿了。。