VB Dir函數(shù)里 %windir%怎么表示
3 回答
寶慕林4294392
TA貢獻2021條經(jīng)驗 獲得超8個贊
If Dir(Environ("windir") + "\system32\shell32.dll") = "" Then
Print "1"
Else
Print "2"
End If
Environ 函數(shù)
語法
Environ({envstring | number})
Environ 函數(shù)的語法含有以下這些命名參數(shù)：
說明
如果在環(huán)境字符串表格中找不到 envstring，則會返回一個零長度字符串 ("")。如果找到，則 Environ 會返回一段文本，文本是賦值給指定的 envstring 的，也就是說，在環(huán)境字符串表格中對應(yīng)那個環(huán)境變量的等號 (=) 后面的那段文本。
如果指定了 number，則在環(huán)境字符串表格中相應(yīng)位置上的字符串會返回。在這種情況下，Environ 會返回整個文本，包括 envstring。
參數(shù)對照
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
慕斯709654
TA貢獻1840條經(jīng)驗 獲得超5個贊
VB中Dir$也即Dir 函數(shù)，是用以表示一個文件名、目錄名或文件夾名稱。
Dir 函數(shù)，返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。
Dir 函數(shù)示例
本示例使用 Dir 函數(shù)來檢查某些文件或目錄是否存在。在 Macintosh 計算機上，默認驅(qū)動器名稱是 “HD” ，并且路徑部分由冒號取代反斜線隔開。而且 Microsoft Windows 的通配符在 Mac 中可以作為有效字符出現(xiàn)在文件名中。也可以使用 MacID 函數(shù)來指定文件組。
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 文件存在， ' 函數(shù)將返回按條件第一個找到的文件名。 MyFile = Dir("C:\WINDOWS\*.ini") ' 若第二次調(diào)用 Dir 函數(shù)，但不帶任何參數(shù)，則函數(shù)將返回同一目錄下的下一個 *.ini 文件。 MyFile = Dir ' 返回找到的第一個隱式 *.TXT 文件。 MyFile = Dir("*.TXT", vbHidden) ' 顯示 C:\ 目錄下的名稱。 MyPath = "c:\" ' 指定路徑。 MyName = Dir(MyPath, vbDirectory) ' 找尋第一項。 Do While MyName <> "" ' 開始循環(huán)。 ' 跳過當(dāng)前的目錄及上層目錄。 If MyName <> "." And MyName <> ".." Then ' 使用位比較來確定 MyName 代表一目錄。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' 如果它是一個目錄，將其名稱顯示出來。 End If End If MyName = Dir ' 查找下一個目錄。 Loop |
添加回答
舉報
0/150
提交
取消