Private 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
' .... Constant
Private Const SW_SHOWNORMAL = 1
Private Sub AddItem2Array1D(ByRef VarArray As Variant, ByVal VarValue As Variant)
Dim i As Long
Dim iVarType As Integer
On Error Resume Next
DoEvents
iVarType = VarType(VarArray) - 8192
i = UBound(VarArray)
Select Case iVarType
Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDecimal, vbByte
If VarArray(0) = 0 Then
i = 0
Else
i = i + 1
End If
Case vbDate
If VarArray(0) = "00:00:00" Then
i = 0
Else
i = i + 1
End If
Case vbString
If VarArray(0) = vbNullString Then
i = 0
Else
i = i + 1
End If
Case vbBoolean
If VarArray(0) = False Then
i = 0
Else
i = i + 1
End If
Case Else
End Select
ReDim Preserve VarArray(i)
VarArray(i) = VarValue
DoEvents
End Sub
Private Function AllFilesInFolders(ByVal sFolderPath As String, Optional bWithSubFolders As _
Boolean = True, Optional strFlag As String = "*.*") As String()
Dim sTemp As String
Dim sDirIn As String
ReDim sFilelist(0) As String
ReDim sSubFolderList(0) As String
ReDim sToProcessFolderList(0) As String
Dim i As Integer, j As Integer
sDirIn = sFolderPath
If Not (Right$(sDirIn, 1) = "\") Then sDirIn = sDirIn & "\"
On Local Error Resume Next
sTemp = Dir$(sDirIn & strFlag)
Do While sTemp <> ""
AddItem2Array1D sFilelist(), sDirIn & sTemp
sTemp = Dir
DoEvents
Loop
If bWithSubFolders Then
sTemp = Dir$(sDirIn & strFlag, vbDirectory)
Do While sTemp <> ""
DoEvents
If sTemp <> "." And sTemp <> ".." Then
If (GetAttr(sDirIn & sTemp) And vbDirectory) = vbDirectory Then
Open App.Path + "\" + sTitleOfFile + ".html" For Output As FL
Print #FL, strHead;
Print #FL, strList;
Print #FL, strBody;
Print #FL, strEnd;
Print #FL, strEndData;
Close FL
' .... Close the PDF File
If MakeAsPDFfile Then
myPDF.EndPDF
Set myPDF = Nothing
End If
' .... Reset All
cmdScan.Caption = "&Scan Directory"
lblFile.Caption = "Total Files: " & ix
lblPath.Caption = "Total Folders: " & fOlder
' .... Open PDF FileName?
If MakeAsPDFfile Then
If Dir$(PDFileName) <> "" Then
If MsgBox("Fle PDF created! Number of Page: " & totPDFPage + 1 & vbCrLf & "Open the File PDF?", vbYesNo + vbInformation + vbDefaultButton1, "Open File") = vbYes Then
