- 博客(2)
- 资源 (9)
- 收藏
- 关注
原创 利用Winrar自动覆盖解压缩
'调用winrar执行文件路径 Public Function GetRarPath() As String Dim Reg = Registry.ClassesRoot.OpenSubKey("Applications\WinRAR.exe\Shell\Open\Command") '打开指定的子键 Dim Obj = Reg.GetValue("") '获取键值
2013-01-28 17:11:09 2577
原创 文件和文件夹搜索的两种方式
1.文件或文件夹遍历搜索 Private Sub Get_Directory(ByVal DirectoryPath As String) If Directory.Exists(DirectoryPath) Then If Directory.GetFileSystemEntries(DirectoryPath).Length <> 0 Then Di
2013-01-28 16:53:46 535
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人