I prefer non microsoft environments so compiled this from a few minutes
with google so may or may not help. It would seem you could use vb or
ActiveXObjects in javascript to create something like what you are
looking for ... Something like the following gives you the basics. If I
recall properly your involved with qforms so should be able to modify
these pretty easily to get something working. This was the result of a
few quick google searches ... I would highly recommend not placing this
type of code in a public web accesible folder:
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("c:\windows\notepad.exe ")
WScript.echo "Notepad.exe was created on", file.DateCreated
WScript.echo "and is", file.Size, "bytes long"
While this one gives you a directory listing:
<%@ LANGUAGE="VBSCRIPT" %>
<%
'Written by: Toby Gramm
'070698
'Modified 092998 - Added support for Folders.
' As suggested by Bill Wilkinson [EMAIL PROTECTED]
Sub Main()
sPP = Request.QueryString("PP") 'Physical Path
sUP = Request.QueryString("UP") 'URL Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPP)
Set fc = f.Files
Set ff = f.SubFolders
For Each f1 in ff
Response.Write "<a href=" & sUP & f1.name & ">" & f1.name & "</a>
<br>"
Next
Response.Write "<br>"
For Each f1 in fc
Response.Write "<a href=" & sUP & f1.name & ">" & f1.name & "</a>
<br>"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
End Sub
%>
Main()
Then maybe combine with something like this for smtp:
'//////////////////////
'//
'// Send SMTP Mail messsage via VBScript.
'// 12/09/02
'//
'// Written by: Nathan Strimling
'//
'// Description: This script will send an email message via smtp without
'// the need for a smtp application such as blat.exe, etc.
'//
'//
'// Intended Usage: SMTP messaging.
'//
'//
'// Dependencies:
'//
'//
'// Caution & Other Notes: This has only been tested under Win2k. Items
'// contained within <>'s are to be replaced with
'// your own information.
'//
'//
'// Modification History:
'//
'// Developer Date Description of Changes
'// ------ ---- ------------
'//
'//
'//////////////////////
'// Set the visual basic constants as they do not exist within VBScript.
' Do not set your smtp server information here.
Const cdoSendUsingMethod =
"http://schemas.microsoft.com/cdo/configuration/sendusing";, _
cdoSendUsingPort = 2, _
cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
'// Create the CDO connections.
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'// SMTP server configuration.
With Flds
..Item(cdoSendUsingMethod) = cdoSendUsingPort
'// Set the SMTP server address here.
..Item(cdoSMTPServer) = "<server IP address>"
..Update
End With
'// Set the message properties.
With iMsg
Set .Configuration = iConf
..To = "<Recipient>"
..From = "<Sender>"
..Subject = "<Subject>"
..TextBody = "<Body of email.>"
End With
'// An attachment can be included.
'iMsg.AddAttachment Attachment
'// Send the message.
iMsg.Send ' send the message.
Dan G. Switzer, II wrote:
>Kevin,
>
>
>
>>What environment? I would use perl to write a script and set it as a
>>chron job .. but that's on a *nix box. Perl would provide you the
>>ability to read the directory and the creation dates as well as interact
>>with smtp.
>>
>>
>
>Win2K
>
>
>
>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Discover CFTicket - The leading ColdFusion Help Desk and Trouble
Ticket application
http://www.houseoffusion.com/banners/view.cfm?bannerid=48
Message: http://www.houseoffusion.com/lists.cfm/link=i:4:212794
Archives: http://www.houseoffusion.com/cf_lists/threads.cfm/4
Subscription: http://www.houseoffusion.com/lists.cfm/link=s:4
Unsubscribe: http://www.houseoffusion.com/cf_lists/unsubscribe.cfm?user=89.70.4
Donations & Support: http://www.houseoffusion.com/tiny.cfm/54
