为了账号安全,请及时绑定邮箱和手机立即绑定

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

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

慕姐8265434 2019-05-22 18:15:26
VB Dir函数里 %windir%怎么表示
查看完整描述

3 回答

?
宝慕林4294392

TA贡献2021条经验 获得超8个赞

If Dir(Environ("windir") + "\system32\shell32.dll") = "" Then
Print "1"
Else
Print "2"
End If

Environ 函数

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数:

说明

如果在环境字符串表格中找不到 envstring,则会返回一个零长度字符串 ("")。如果找到,则 Environ 会返回一段文本,文本是赋值给指定的 envstring 的,也就是说,在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number,则在环境字符串表格中相应位置上的字符串会返回。在这种情况下,Environ 会返回整个文本,包括 envstring。

参数对照

number envstring
1 ALLUSERSPROFILE
2 APPDATA
3 CLIENTNAME
4 CommonProgramFiles
5 COMPUTERNAME
6 ComSpec
7 FP_NO_HOST_CHECK
8 HOMEDRIVE
9 HOMEPATH
10 LOGONSERVER
11 NUMBER_OF_PROCESSORS
12 OS
13 Path
14 PATHEXT
15 PROCESSOR_ARCHITECTURE
16 PROCESSOR_IDENTIFIER
17 PROCESSOR_LEVEL
18 PROCESSOR_REVISION
19 ProgramFiles
20 SESSIONNAME
21 SystemDrive
22 SystemRoot
23 TEMP
24 TMP
25 USERDOMAIN
26 USERNAME
27 USERPROFILE
28 windir



查看完整回答
反对 回复 2019-05-25
?
慕斯709654

TA贡献1840条经验 获得超5个赞

VB中Dir$也即Dir 函数,是用以表示一个文件名、目录名或文件夹名称。

Dir 函数,返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。

Dir 函数示例

本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上,默认驱动器名称是 “HD” ,并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

Dim MyFile, MyPath, MyName

' 返回“WIN.INI” (如果该文件存在)。

MyFile = Dir("C:\WINDOWS\WIN.ini")   

' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在,

' 函数将返回按条件第一个找到的文件名。

MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.ini 文件。

MyFile = Dir

' 返回找到的第一个隐式 *.TXT 文件。

MyFile = Dir("*.TXT", vbHidden)

' 显示 C:\ 目录下的名称。

MyPath = "c:\"   ' 指定路径。

MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。

Do While MyName <> ""   ' 开始循环。

   ' 跳过当前的目录及上层目录。

   If MyName <> "." And MyName <> ".." Then

      ' 使用位比较来确定 MyName 代表一目录。

      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

         Debug.Print MyName   ' 如果它是一个目录,将其名称显示出来。

      End If

   End If

   MyName = Dir   ' 查找下一个目录。

Loop


查看完整回答
反对 回复 2019-05-25
  • 3 回答
  • 0 关注
  • 1168 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信