徐睿

1.文件或文件夹遍历搜索Private Sub Get_Directory(ByVal DirectoryPath As String) If Directory.Exists(DirectoryPath) Then If Directory.GetFileSystemEntries(DirectoryPath).Length <> 0 Then Di

'调用winrar执行文件路径Public Function GetRarPath() As String Dim Reg = Registry.ClassesRoot.OpenSubKey("Applications\WinRAR.exe\Shell\Open\Command") '打开指定的子键 Dim Obj = Reg.GetValue("") '获取键值