asp高手进！请看下面的一个函数
之前给出的有点问题，现在修改了，应该可以取道去掉后缀名的文件名了
4中情况：
1。取得完整文件名
我觉得你的代码最后运行出来是不是：
strFile="C:\\int\asp\aaa。 txt";
mid(strFile,InStrRev(strFile, "\")+1)="aaa。txt";
取出了整个文件名，而非去掉后缀名的文件名啊
2。输入就是不带后缀名的文件名，取得没后缀的文件名
strFile="C:\\int\asp\aaa";
mid(strFile,InStrRev(strFile, "\")+1)="aaa";
3。 取得文件夹名...全部
之前给出的有点问题，现在修改了，应该可以取道去掉后缀名的文件名了
4中情况：
1。取得完整文件名
我觉得你的代码最后运行出来是不是：
strFile="C:\\int\asp\aaa。
txt";
mid(strFile,InStrRev(strFile, "\")+1)="aaa。txt";
取出了整个文件名，而非去掉后缀名的文件名啊
2。输入就是不带后缀名的文件名，取得没后缀的文件名
strFile="C:\\int\asp\aaa";
mid(strFile,InStrRev(strFile, "\")+1)="aaa";
3。
取得文件夹名
strFile="C:\\int\asp";
mid(strFile,InStrRev(strFile, "\")+1)="asp";
4。取得出错
strFile="C:\\";或strFile="C:";或strFile="C:\\int\";
你这种方法要是显示的是没有后缀名的文件名的话，就是给 strFile 的是 不带后缀名的文件名，才可能吧 strFile="C:\\int\asp\aaa";
这样才可能获得不带后缀名的文件名吧
应该改为
Function GetFileName(ByVal strFile)
' 1,2,3的情况
If strFile <> "" and InStrRev(strFile, "\") 0 Then
GetFileName=mid(mid(strFile,1,InStrRev(strFile,"。
")-1),InStrRev(strFile, "\")+1)
' 2、3的情况，在(路径+文件名)上截取文件名
Else
GetFileName=mid(strFile,InStrRev(strFile, "\")+1)
End If
' 4或空的情况
Else
GetFileName = ""
End If
End function
你试一下吧 ^_^。
收起
