need help Listing two deffirent directories into HTML

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

need help Listing two deffirent directories into HTML

Logged in as: Guest

arrSession:exec spGetSession 2,2,36295

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> need help Listing two deffirent directories into HTML
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

need help Listing two deffirent directories into HTML - 7/19/2006 12:06:01 AM

blakeph

Posts: 17
Score: 0
Joined: 5/28/2006
Status: offline

hi all!

I have here a working script that will list all the files in the given directory into HTML, and then will send it to an email address using the CDO. And the output in the body of the email would be listed in a table that would look something like this:
Directory Listing for \\Server001\archive
1 test.zip   3.1MB
2 test2.zip 3.2MB
3 test3.zip 3.0MB

But, I wanted to add another directory te be included in the email, so that I have something like this:
Directory Listing for \\Server001\archive
1 test.zip   3.1MB
2 test2.zip 3.2MB
3 test3.zip 3.0MB

Directory Listing for \\Server002\archive
1 test.zip   3.1MB
2 test2.zip 3.2MB
3 test3.zip 3.0MB

So how I would do it?

Below is the code:

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Daily Results on Server001" 
objMessage.From = "me@domain.com"
objMessage.To = "me@domain.com"

HtmlTableStart = "<h2><font color = steelblue> Daily Results on Server001</font></h2><table border = 1>"

Set FileSysLocal = CreateObject("Scripting.FileSystemObject")

Count = 0

Set FolderLocal = FileSysLocal.getfolder("\\server01\archive")
For Each File in FolderLocal.Files

Count = Count + 1
 Set FileSize = CreateObject("Scripting.FileSystemObject")
 set Objsize = FileSize.GetFile( File )
 RoundObjsize = FormatNumber(round(Objsize.size/1048576, 2), 2)
 HtmlSize =  RoundObjsize & " Mb"

if (Count mod 2) then
     if (RoundObjsize =< 0) then
       HtmlEntry = HtmlEntry & "<tr><td bgcolor = lightblue>" & Count & "</td><td bgcolor = lightblue>" & File & "</td><td align = right bgcolor = ff6666>" & Htmlsize & "</td></tr>"
     else
       HtmlEntry = HtmlEntry & "<tr><td bgcolor = lightblue>" & Count & "</td><td bgcolor = lightblue>" & File & "</td><td align = right bgcolor = lightblue>" & Htmlsize & "</td></tr>"
     end if
   else
     if (RoundObjsize =< 0) then
       HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right bgcolor = ff6666>" & Htmlsize & "</td></tr>"
     else
       HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right>" & Htmlsize & "</td></tr>"
     end if
   End if
Next

HtmlTableEnd = "</table><br>"
HtmlString = HtmlTableStart & HtmlEntry & HtmlTableEnd & HtmlCount

objMessage.HTMLBody = HtmlString
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.domain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
objMessage.Send

Wscript.Quit

thanks?

Post #: 1

RE: need help Listing two deffirent directories into HTML - 7/19/2006 4:54:58 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Hiya BlakePh,

You could save alot of time by just copying what you have, and make sure you have the correct var's defined...please see my example:

PS. every new section starts with '***, this is to differentiate between the sections, easier to recognize

<html>
<head>
<script type="text/VBScript">
<!--
Function ShowDirFiles()
'***
Set FileSysLocal = CreateObject("Scripting.FileSystemObject")
Set FolderLocal1 = FileSysLocal.getfolder("E:\MP3") 'server address 1
Set FolderLocal2 = FileSysLocal.getfolder("E:\Web") 'server address 2
Dim HtmlTableStart : HtmlTableStart = "<table border=0 cellpadding=0 cellspacing=0 width=100%>"
Dim HtmlEnd : HtmlTableEnd = "</table><br>"
Dim HtmlHead1 : HtmlHead1 = "<h2><font color = steelblue>Directory contents of " & FolderLocal1 & "</font></h2>"
Dim HtmlHead2 : HtmlHead2 = "<h2><font color = steelblue>Directory contents of " & FolderLocal2 & "</font></h2>"

'***
'start counting
Dim Count : Count = 0
For Each File in FolderLocal1.Files
Count = Count + 1
Set FileSize = CreateObject("Scripting.FileSystemObject")
Set Objsize = FileSize.GetFile( File )
RoundObjsize = FormatNumber(round(Objsize.size/1048576, 2), 2)
HtmlSize =  RoundObjsize & " Mb"
  if (Count mod 2) then
    if (RoundObjsize =< 0) then
      HtmlEntry = HtmlEntry & "<tr><td bgcolor = #EEEEEE>" & Count & "</td><td bgcolor = #EEEEEE>" & File & "</td><td align = right bgcolor = Red>" & Htmlsize & "</td></tr>"
    else
      HtmlEntry = HtmlEntry & "<tr><td bgcolor = #EEEEEE>" & Count & "</td><td bgcolor = #EEEEEE>" & File & "</td><td align = right bgcolor = #EEEEEE>" & Htmlsize & "</td></tr>"
    end if
  else
    if (RoundObjsize =< 0) then
      HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right bgcolor = Red>" & Htmlsize & "</td></tr>"
    else
      HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right>" & Htmlsize & "</td></tr>"
    end if
  End if
Set FileSize = Nothing 'close it
Set Objsize = Nothing 'close it
Next
HtmlString1 = HtmlHead1 & HtmlTableStart & HtmlEntry & HtmlTableEnd & HtmlCount 'drop it all in the HtmlString1
HtmlEntry = ""

'***
'start new round of filedumping
Count = 0 'start counting fresh
For Each File in FolderLocal2.Files
Count = Count + 1
Set FileSize = CreateObject("Scripting.FileSystemObject")
set Objsize = FileSize.GetFile( File )
RoundObjsize = FormatNumber(round(Objsize.size/1048576, 2), 2)
HtmlSize =  RoundObjsize & " Mb"
  if (Count mod 2) then
    if (RoundObjsize =< 0) then
      HtmlEntry = HtmlEntry & "<tr><td bgcolor = #EEEEEE>" & Count & "</td><td bgcolor = #EEEEEE>" & File & "</td><td align = right bgcolor = Red>" & Htmlsize & "</td></tr>"
    else
      HtmlEntry = HtmlEntry & "<tr><td bgcolor = #EEEEEE>" & Count & "</td><td bgcolor = #EEEEEE>" & File & "</td><td align = right bgcolor = #EEEEEE>" & Htmlsize & "</td></tr>"
    end if
  else
    if (RoundObjsize =< 0) then
      HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right bgcolor = Red>" & Htmlsize & "</td></tr>"
    else
      HtmlEntry = HtmlEntry & "<tr><td>" & Count & "</td><td>" & File & "</td><td align = right>" & Htmlsize & "</td></tr>"
    end if
  End if
Next
HtmlString2 = HtmlHead2 & HtmlTableStart & HtmlEntry & HtmlTableEnd & HtmlCount 'drop it all in the HtmlString2
HtmlEntry = ""

'***
'assign the HTML to the proper fields
document.getelementbyID("divOutput1").innerHTML = HtmlString1
document.getelementbyID("divOutput2").innerHTML = HtmlString2
End Function
//-->
</script>
</head>
<body>
<input type="button" onClick="ShowDirFiles()" value="Show Dir Content">
<p>
<div ID="divOutput1"></div>
<p>
<div ID="divOutput2"></div>
</body></html>

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to blakeph)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> need help Listing two deffirent directories into HTML

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts