请问下面的代码中，str会输出什么样的结果?

lenfilename=len(CommonDialog1.filename)
for i=1 to lenfilename
temp=right(commondialog1.file,i)
if mid(temp,1,i)="\" then
str=right(temp,len(temp)-1)
exit for
next

问题好多呀……而且浪费呀
因为有错误所以开始不知道干什么

直接str1=CommonDialog1..FileTitle不完了？
想获取文件名。

从右边找到第一个 \ 取出这个\ 右边的字符串
就是取得不带路径的文件名

这段代码看起来没有问题

我其实写错了，正确的代码是：
lenfilename=len(CommonDialog1.filename)
for i=1 to lenfilename
temp=right(commondialog1.file,i)
if mid(temp,i,len(temp))="\" then
str=right(temp,len(temp)-1)
exit for
next
经过试验，这段代码实现FileSystemObject对象的getBaseName（）函数功能。

不过用前面的方法，也能实现

我是想试着将文件系统对象的函数用另外的方法实现，以便能更熟练地掌握它们。