mFile

Option Explicit

Dim mFile As New mFile
Dim Str As String

Public Const EngMode As Boolean = True ' 英文模式
Public Const mName As String = "JunYi Code Base"

' 坏消息
Public Function BadMsg(Message As String)
		MsgBox Message, vbCritical, mName
End Function

' 好消息
Public Function GoodMsg(Message As String)
		MsgBox Message, vbInformation, mName
End Function

Property Get GetSubFolders(mPath As String, Optional SubLevel As Integer = 0, Optional mKeyWord As String = "", Optional mSeparator As String = ",") As String

Sub File_GetSubFolder()
        Dim mFolderName() As String
        Dim i As Integer
        mFolderName = Split(mFile.GetSubFolders("D:\迅雷下载\test", 3, "1"), ",") ' 将文件名拆分到数组
        Sheets("File").Range("E:E").Clear
        For i = LBound(mFolderName) To UBound(mFolderName)
                Str = Str & i & " - " & mFolderName(i) & vbCrLf
                'Sheets("File").Cells(i + 1, 5) = mFolderName(i)
        Next i
        GoodMsg Replace(Str, "D:\迅雷下载\test", "")
        Str = ""
End Sub

Property Get GetFolderDialog() As String

Sub File_GetFolderDialog()
        GoodMsg mFile.GetFolderDialog
End Sub

Property Get CheckFolderExists(mPath As String) As Boolean

Sub File_CheckFolderExists()
        Str = ThisWorkbook.path & "\测试"
        GoodMsg mFile.CheckFolderExists(Str)
End Sub

Sub CreateFolder(mFolderPath As String, Optional ShowMsg As Boolean = False)

Sub File_CreateFolder()
        Str = ThisWorkbook.path & "\测试\test\"
        mFile.CreateFolder Str, True
End Sub

Property Get GetFileName(mPath As String, mKeyWord As String, Optional mFileExtention As String = "*", Optional mSeparator As String = ",") As String

Sub File_GetFileName()
        Dim mFileName() As String
        Dim i As Integer
        mFileName = Split(mFile.GetFileName("D:\迅雷下载\", "HD", "mkv", "&&"), "&&") ' 将文件名拆分到数组
        For i = LBound(mFileName) To UBound(mFileName)
                Str = Str & i & " - " & mFileName(i) & vbCrLf
        Next i
        GoodMsg Str
        Str = ""
End Sub

Property Get CheckFileExists(mPath As String) As Boolean

Sub File_CheckFileExists()
        Dim CheckResult As Boolean
        Str = ThisWorkbook.path & "\测试.xlsx"
        CheckResult = mFile.CheckFileExists(Str)
        If CheckResult Then GoodMsg "文件存在：" & Str
        If Not CheckResult Then BadMsg "文件不存在：" & Str
        Str = ""
End Sub

Property Get ReadIni(FileFullName As String, SectionName As String, KeyName As String) As String

Sub File_ReadIni()
        Dim mPath As String
        mPath = ThisWorkbook.path & "\test.ini"
        GoodMsg mFile.ReadIni(mPath, "Test", "test1")
End Sub

Property Get ReadIniSection(FileFullName As String, SectionName As String, Optional mSeparator As String = "&&") As String

Sub File_ReadIniSection()
        Dim mPath As String
        mPath = ThisWorkbook.path & "\测试\test.ini"
        GoodMsg mFile.ReadIniSection(mPath, "Test")
End Sub

Sub WriteIni(FileFullName As String, SectionName As String, KeyName As String, KeyValue As String)

Sub Test()
		mFile.WriteIni ThisWorkbook.Path & "\settings.ini", "test2", "testkey", "哈哈~"
		GoodMsg mFile.ReadIni(ThisWorkbook.Path & "\settings.ini", "test2", "testkey")
End Sub

Sub DeleteIniKey(FileFullName As String, SectionName As String, KeyName As String)

Sub File_DeleteIni()
		Dim mPath As String
		mPath = ThisWorkbook.path & "\测试\test.ini"
		mFile.DeleteIniKey mPath, "Test", "test1"
		GoodMsg "删除成功。"
End Sub

Sub CreateFile(mFileFullPath As String, Optional ShowMsg As Boolean = False)

Sub File_CreateFile()
        Dim mPath As String
        mPath = ThisWorkbook.path & "\测试\test.ini"
        mFile.CreateFile mPath, True
End Sub

Function CopyFile(mSourceFilePath As String, mDestinyFilePath As String, Optional mShowMsg As Boolean = True)

Sub File_CopyFile()
        Dim mPath As String, mPathAfter As String
        mPath = ThisWorkbook.path & "\测试\test.ini"
        mPathAfter = ThisWorkbook.path & "\测试\test~~.ini"
        mFile.CopyFile mPath, mPathAfter, False
        GoodMsg "Done"
End Sub