关于DIR函数用法的疑问？求高手指点，研究了一天，逐字看的头都晕了

皮皮坦克

Sub 获取文件夹和文件名()

Dim str1 As String, str2 AsString, i As Integer

Set a =Application.FileDialog(msoFileDialogFolderPicker)

a.Show     

str1 =a.SelectedItems(1)  

str2 = Dir(str1 &IIf(Right(str1, 1) = "\", "", "\"), vbDirectory) ' 这段代码中IIf(Right(str1, 1) = "\", "", "\")的作用是什么？用msgbox 查看str1，后面都不带"\"，为什么此处还要这么写？

     Do While Len(str2) <> 0   

Ifstr2 <> "." And str2 <> ".." Then      ’这段代码是什么意思？ "."和 ".."都代表什么？

i= i + 1

Cells(i,1) = str2

            Endif                        

str2= Dir                                 

Loop

End Sub

我是来讨说法的

.......
str1 & IIf(Right(str1, 1) = "\", "", "\")意思就是说，如果str1最后面没有斜杠就加一个斜杠
. 表示当前目录自身
.. 表示当前目录的父目录

zhjlgaojuan

因为selectitem返回值一般情况下是不带"\"的,但是如果是根目录,返回值会跟随一个"\",这句就是避免你选择根目录的时候会出错,所以,才加一个判断,假如返回值后面跟随了"\",就什么都不加,假如没有"\",那么就增加一个"\"

jiminyanyan

这种基本是套路了。。。

皮皮坦克

我是来讨说法的 发表于 2018-8-3 16:22
.......
str1 & IIf(Right(str1, 1) = "\", "", "\")意思就是说，如果str1最后面没有斜杠就加一个斜杠
.  ...

明白了，谢谢

皮皮坦克

zhjlgaojuan 发表于 2018-8-3 16:32
因为selectitem返回值一般情况下是不带"\"的,但是如果是根目录,返回值会跟随一个"\",这句就是避免你选择根 ...

终于明白了，谢谢老师

皮皮坦克

jiminyanyan 发表于 2018-8-3 19:25
这种基本是套路了。。。

就想问个为什么这么套路，哈哈！