![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb.net
edwinfei
这个作者很懒,什么都没留下…
展开
-
文件和文件夹搜索的两种方式
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 · 513 阅读 · 0 评论 -
利用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 · 2537 阅读 · 0 评论