Module1.bas
上传用户:dohkov
上传日期:2007-06-18
资源大小:35k
文件大小:2k
源码类别:

家庭/个人应用

开发平台:

Visual Basic

  1. Attribute VB_Name = "Module1"
  2. Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
  3. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  4. Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  5. Public CdromName As String
  6. Public BackupFileArray() As String
  7. Public RestoreFile() As String
  8. Public Info As String
  9. Public Sub CencerForm(fForm As Form)
  10. fForm.Move (Screen.Width - fForm.Width) / 2, (Screen.Height - fForm.Height) / 2
  11. End Sub
  12. Public Sub GetFoldersAndFiles(Foldername As String)
  13. Dim fso As New Scripting.FileSystemObject
  14. Dim fd As Folder, sfd As Folder, fs As File
  15. Set fd = fso.GetFolder(Foldername)
  16. For Each sfd In fd.SubFolders
  17.     MainForm.TreeView2.Nodes.Add Foldername, tvwChild, sfd.Path + "", sfd.Name, 3, 2
  18.     AddCdrom.Label3.Caption = sfd.Path
  19.     GetFoldersAndFiles sfd.Path + ""
  20. Next
  21. For Each fs In fd.Files
  22.     MainForm.TreeView2.Nodes.Add Foldername, tvwChild, fs.Path, fs.Name, 10
  23.     AddCdrom.Label3.Caption = fs.Path
  24. Next
  25. End Sub
  26. Public Sub main()
  27. If Dir("cdrom.cds") = "" Then
  28.    MsgBox "光盘镜像注册表丢失,请重装系统!", vbCritical
  29.    End
  30. End If
  31. If App.PrevInstance Then
  32.    MsgBox "光盘管家已经被启动,无须再开启了!", vbCritical
  33.    End
  34. Else
  35.   Load MainForm
  36.   MainForm.Show
  37. End If
  38. End Sub