VB Dir函数里 %windir%怎么表示?

Question

VB Dir函数里 %windir%怎么表示

Answer 1

If Dir(Environ("windir") + "\system32\shell32.dll") = "" ThenPrint "1"ElsePrint "2"End IfEnviron 函数语法Environ({envstring | number})Environ 函数的语法含有以下这些命名参数：说明如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。参数对照number envstring1 ALLUSERSPROFILE2 APPDATA3 CLIENTNAME4 CommonProgramFiles5 COMPUTERNAME6 ComSpec7 FP_NO_HOST_CHECK8 HOMEDRIVE9 HOMEPATH10 LOGONSERVER11 NUMBER_OF_PROCESSORS12 OS13 Path14 PATHEXT15 PROCESSOR_ARCHITECTURE16 PROCESSOR_IDENTIFIER17 PROCESSOR_LEVEL18 PROCESSOR_REVISION19 ProgramFiles20 SESSIONNAME21 SystemDrive22 SystemRoot23 TEMP24 TMP25 USERDOMAIN26 USERNAME27 USERPROFILE28 windir

Answer 2

VB中Dir$也即Dir 函数，是用以表示一个文件名、目录名或文件夹名称。Dir 函数，返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。Dir 函数示例本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh&nbsp;计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac&nbsp;中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。1234567891011121314151617181920212223Dim&nbsp;MyFile,&nbsp;MyPath,&nbsp;MyName'&nbsp;返回“WIN.INI”&nbsp;（如果该文件存在）。MyFile&nbsp;=&nbsp;Dir("C:\WINDOWS\WIN.ini")&nbsp;&nbsp;&nbsp;'&nbsp;返回带指定扩展名的文件名。如果超过一个&nbsp;*.ini&nbsp;文件存在，'&nbsp;函数将返回按条件第一个找到的文件名。MyFile&nbsp;=&nbsp;Dir("C:\WINDOWS\*.ini")'&nbsp;若第二次调用&nbsp;Dir&nbsp;函数，但不带任何参数，则函数将返回同一目录下的下一个&nbsp;*.ini&nbsp;文件。MyFile&nbsp;=&nbsp;Dir'&nbsp;返回找到的第一个隐式&nbsp;*.TXT&nbsp;文件。MyFile&nbsp;=&nbsp;Dir("*.TXT",&nbsp;vbHidden)'&nbsp;显示&nbsp;C:\&nbsp;目录下的名称。MyPath&nbsp;=&nbsp;"c:\"&nbsp;&nbsp;&nbsp;'&nbsp;指定路径。MyName&nbsp;=&nbsp;Dir(MyPath,&nbsp;vbDirectory)&nbsp;&nbsp;&nbsp;'&nbsp;找寻第一项。Do&nbsp;While&nbsp;MyName&nbsp;<>&nbsp;""&nbsp;&nbsp;&nbsp;'&nbsp;开始循环。&nbsp;&nbsp;&nbsp;'&nbsp;跳过当前的目录及上层目录。&nbsp;&nbsp;&nbsp;If&nbsp;MyName&nbsp;<>&nbsp;"."&nbsp;And&nbsp;MyName&nbsp;<>&nbsp;".."&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;使用位比较来确定&nbsp;MyName&nbsp;代表一目录。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;(GetAttr(MyPath&nbsp;&&nbsp;MyName)&nbsp;And&nbsp;vbDirectory)&nbsp;=&nbsp;vbDirectory&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print&nbsp;MyName&nbsp;&nbsp;&nbsp;'&nbsp;如果它是一个目录，将其名称显示出来。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp;&nbsp;&nbsp;MyName&nbsp;=&nbsp;Dir&nbsp;&nbsp;&nbsp;'&nbsp;查找下一个目录。Loop