正则表达式从文件路径中提取文件名

String input = "D:\\save\\任意文件名.pdf"

String regex = ".*\\\\([^\\.]+)\\..*"

input.replaceAll(regex, "$1")

楼主的问题不错，这个平时注意的人真的少之又少！

其实这个不用正则表达式或许更方便,利用异常处理语句Try...catch...end try.

先执行Try中的语句,如果执行异常,那么将运行catch中的语句!

dim str as string

str = inputbox("请输入路径!")

Try

Dim dir1 as DirectoryInfo(str)

Dir1.Create()

Dir1.Delete(True) '如果你只确定路径是否合法而不建立文件夹，加入该语句

Catch

msgbox("路径输入有误!","提示框"，0）

END Try

以上在vb2005测试通过!

如果你要点DOC开始的路径，前面都有D:/WEBSITE/EDOC,都是doc或docx小写结尾的扩展名，比较简单，可以用：

D:/WEBSITE/EDOC/(([A-Za-z0-9_]+/)+/[A-Za-z0-9_]+\.docx?)

如果不一定是D盘，可以用下面的匹配整个路径：

[A-F]:/([A-Za-z0-9_]+/)+/[A-Za-z0-9_]+\.docx?

#如果正则选项使用忽略大小写，正则可以少写一些字符：

[a-f]:/([a-z0-9_]+/)+/[a-z0-9_]+\.docx?

#这里假设盘符只有a~f，可以写成a-z扩大范围

---