level 7
找来找去最后只找到下面这段代码
Private Sub Form_Load()
If Dir("12.exe") <> "" Then '文件检查
Else
End If
End Sub
2016年03月31日 05点03分
level 13
2016年03月31日 07点03分
3
level 13
如果上面的API没机会用，那么可以这样写（效率低）
For Each exe In From f In Directory.GetFiles("填写文件夹路径") Where f.ToLower.EndsWith(".exe")
'...处理exe文件
Next
---贴吧极速版 For UWP
2016年03月31日 09点03分
4
For Each exe In From f In Directory.GetFiles("填写文件夹路径") Where f.ToLower.EndsWith(".exe")
'...处理exe文件
Next
---贴吧极速版 For UWP
不导入命名空间![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
2016年03月31日 10点03分
回复 杰克冻人之怒 : 在项目级别引用里面点了 ---贴吧极速版 For UWP
2016年03月31日 15点03分
level 12
level 10
' 不想电脑爆炸就别轻易使用全盘枚举
Dim exefiles As New List(Of String)
For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
For Each fi As IO.FileInfo In drive.RootDirectory.GetFiles("*.exe", IO.SearchOption.AllDirectories)
exefiles.Add(fi.FullName)
Next
Next
![[冷]](/static/emoticons/u51b7.png)
你现在还在问这种问题，怎么写资源管理器。
2016年03月31日 11点03分
6
Dim exefiles As New List(Of String)
For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
For Each fi As IO.FileInfo In drive.RootDirectory.GetFiles("*.exe", IO.SearchOption.AllDirectories)
exefiles.Add(fi.FullName)
Next
Next
你现在还在问这种问题，怎么写资源管理器。
开个新线程或者加doevents应该会好些吧
2016年03月31日 11点03分
