|
看别人写的文件分割工具挺好用，也学着写了一个，附源代码。(9) lpszTitle As String
ulFlage As Long
lpfn As Long
lparam As Long
iImage As Long
End Type Private fnum As Integer Private Function ShowDir(MehWnd As Long, _
DirPath As String, _
Optional Title As String = "请选择文件夹：", _
Optional flage As Long = &H1, _
Optional DirID As Long) As Long
Dim BI As BROWSEINFO
Dim TempID As Long
Dim TempStr As String
TempStr = String$(255, Chr$(0))
With BI
.hOwner = MehWnd
.pidlRoot = 0
.lpszTitle = Title + Chr$(0)
.ulFlage = flage
End With
TempID = SHBrowseForFolder(BI)
DirID = TempID
If SHGetPathFromIDList(ByVal TempID, ByVal TempStr) Then
DirPath = Left$(TempStr, InStr(TempStr, Chr$(0)) - 1)
ShowDir = -1
Else
ShowDir = 0
End If
End Function
Private Function OperateFile(ByVal vFile As String, _
ByVal vSplit As Boolean _
) As Long
|
