vb判断目录是否存在
2024-03-08 17:18:42
标签： it
''判断是32位系统还是64位系统:64位系统目录有两个文件夹，C:\Program Files (x86)和 C:\Program
Files
''32位系统只有一个目录 C:\Program
Files Dim
hShell If
Dir("C:\Program Files (x86)", vbDirectory)
<> ""
Then
hShell = Shell("C:\Program
Files (x86)\vb\" &
"\vb.exe", vbMaximizedFocus)
'手动指定程序位置
Else
hShell = Shell("C:\Program
Files\vb\" & "\vb.exe",
vbMaximizedFocus) '手动指定程序位置
End If
vb判断目录是否存在
''判断是32位系统还是64位系统:64位系统目录有两个文件夹，C:\Program Files (x86)和 C:\Program Files ''32位系统只有一个目录 C:\Program Files Dim hShell If Dir("C:\Program Files (x86)", vbDirectory) <> "" Then hShell = Shell("C:\Program Files (x86)\vb\" & "\vb.exe", vbMaximizedFocus) '手动指定程序位置 Else hShell = Shell("C:\Program Files\vb\" & "\vb.exe", vbMaximizedFocus) '手动指定程序位置 End If