VBA中dirname = Dir是什么意思?

Question

VBA中dirname = Dir是什么意思

Answer 1

dirname是一个自定义变量的名称Dir是一个函数--------------Dir 函数示例本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。Dim MyFile, MyPath, MyName' 返回“WIN.INI”(在 Microsoft Windows 中) （如果该文件存在）。MyFile = Dir("C:\WINDOWS\WIN.ini")' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，' 函数将返回按条件第一个找到的文件名。MyFile = Dir("C:\WINDOWS\*.ini")' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。MyFile = Dir

Answer 2

代码修改下：Dim spath As String, patha As StringDim sfilename As StringDim rown As Longspath = Cells(2, 1).Value & Application.PathSeparatorsfilename = Dir(spath & "*", vbDirectory)rown = 4Do While sfilename <> ""if sfilename<>"." and sfilename<>".." thenCells(rown, 1).Value = sfilenameend ifsfilename = Dirrown = rown + 1Loop

Answer 3

If Dir("C:\test.xls") <>"" thenMsgBox "文件存在" '当C盘根目录存在test.xls文件时提示“文件存在”elseMsgBox "文件不存在"End If--------------------------------------------------------------------------------Dir函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分：部分 描述pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。设置值attributes 参数的设置可为：常数 值 描述vbNormal 0 (缺省) 指定没有属性的文件。vbReadOnly 1 指定无属性的只读文件vbHidden 2 指定无属性的隐藏文件VbSystem 4 指定无属性的系统文件vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolumevbDirectory 16 指定无属性文件及其路径和文件夹。注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。说明Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。由于 Macintosh 不支持通配符，使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称:Dir("SomePath", MacID("TEXT"))为选中文件夹中所有文件，指定一空串:Dir("")在 Microsoft Windows 中，如果在Dir函数中使用MacID函数，将产生错误。任何大于256的attribute值都被认为是MacID 函数的值。在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。