module1.bas

KTV管理系统,实现了基本的日常操作.程序有不完善之处,请自修升级修改.

Attribute VB_Name = "Module1"
Public mHZtoSM As cHztoSM
Public songPath As String
Public conn As String
Public nn As String
Sub Main()
Dim strFileName As String
strFileName = "System.ini"        'set this to the file you want created
strMySystemFile = App.Path & "\" & strFileName
Load songManger
songManger.Show
songPath = ReadFromFile("set", "songPath")

End Sub
'删除文件夹下子目录及文件
Public Function KillFolder(ByVal FullPath As String) As Boolean

'EXAMPLE: `KillFolder("D:\MyOldFiles")


On Error Resume Next

'Dim oFso As New Scripting.FileSystemObject
Set oFso = CreateObject("Scripting.FileSystemObject")

If Right(FullPath, 1) = "\" Then FullPath = Left(FullPath, Len(FullPath) - 1)

If oFso.FolderExists(FullPath) Then

oFso.DeleteFolder FullPath, True

KillFolder = Err.Number = 0 And oFso.FolderExists(FullPath) = False

End If

End Function