strFolderName = "d:\data\my smilies"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.getfolder(strFolderName)
Set objOutFile = objFSO.CreateTextFile(strFolderName & "\AAAfolderWebPage.htm",True)
strColCount = 1
strLineCount = 0
objOutFile.WriteLine "" & vbCrLf
objOutFile.WriteLine "" & vbCrLf & " Directory of: " & strFolderName & ""
objOutFile.WriteLine " "
objOutFile.WriteLine "" & vbCrLf
objOutFile.WriteLine "" & vbCrLf
objOutFile.WriteLine " Directory of: " & strFolderName & _
"
" & vbCrLf & vbcrlf & " " & vbcrlf & " "
For Each objFile In objFolder.Files
If Right(objFile.Name,3) = "gif" Then
If strColCount < 11 Then
objOutFile.WriteLine " ![](" & objFile.Name & ")
" & objFile.Name & " | "
strColCount = strColCount + 1
Else
objOutFile.WriteLine "
" & vbCrLf & " "
strColCount = 1
End If
strLineCount = strLineCount + 1
End If
Next
objOutFile.WriteLine "
" & vbCrLf & "
" & vbCrLf & vbcrlf & "" & vbCrLf & ""
objOutFile.Close
Set objFSO = Nothing
MsgBox("Done. " & strLineCount & " lines processed.")