您所在位置：主题：一系列VB技巧发布-小型代码集
孙瑞
[专家分：590] 发布于 2010-09-01 11:56:00
1.启动资源管理器并显示文件夹
Function opendic(dicto) 'dicto为目录路径
sdl! = Shell("explorer.exe " & dicto, vbNormalFocus)
End Function
2.删除目录
Function deldir(dirs) 'dirs为目录路径
RmDir dirs
End Function
3.API实现延时
函数声明：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
程序代码
a = 0
Do While a < 11
Label1.Caption = a
a = a + 1
DoEvents
Sleep 1000
Loop
4.打开文件夹，选定文件代码（实现下载软件右键“打开文件夹”的文件定位功能）
Function selectit(filepath)
kl! = Shell("C:\WINDOWS\explorer.exe /n ,/select ," & filepath, vbNormalFocus) 'kl无意义
End Function
【持续更新中……】
Function opendic(dicto) 'dicto为目录路径
sdl! = Shell("explorer.exe " & dicto, vbNormalFocus)
End Function
2.删除目录
Function deldir(dirs) 'dirs为目录路径
RmDir dirs
End Function
3.API实现延时
函数声明：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
程序代码
a = 0
Do While a < 11
Label1.Caption = a
a = a + 1
DoEvents
Sleep 1000
Loop
4.打开文件夹，选定文件代码（实现下载软件右键“打开文件夹”的文件定位功能）
Function selectit(filepath)
kl! = Shell("C:\WINDOWS\explorer.exe /n ,/select ," & filepath, vbNormalFocus) 'kl无意义
End Function
【持续更新中……】
