ASP Script Hangs

[Andi B]

Hi folks,

Wondering if anyone can help me - I have recently set up a website on our
work intranet, which allows staff members in our team to attach a photo of
themselves to their profile on the page. The photos are uploaded to the
webserver by an ASP script. I am now trying to get an addition written
which allows for the deletion of old files that are no longer used by
anyones profile. I have written the following to list the contents of the
folder, but whenever I test the script on my home computer (WinXP Pro, SP2,
IIS 5.1) the ASP hangs - it produces no output, not even an error. Can
anyone offer any assistance on what I might need to do to get it working
correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Steven Burn]

Change strCurrentFolder to Server.MapPath(strCurrentFolder)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Andi B" <mg****@dsl.pipex.com> wrote in message news:42***********************@news.dial.pipex.com ...

Hi folks,

Wondering if anyone can help me - I have recently set up a website on our
work intranet, which allows staff members in our team to attach a photo of
themselves to their profile on the page. The photos are uploaded to the
webserver by an ASP script. I am now trying to get an addition written
which allows for the deletion of old files that are no longer used by
anyones profile. I have written the following to list the contents of the
folder, but whenever I test the script on my home computer (WinXP Pro, SP2,
IIS 5.1) the ASP hangs - it produces no output, not even an error. Can
anyone offer any assistance on what I might need to do to get it working
correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Roland Hall]

"Andi B" wrote in message
news:42***********************@news.dial.pipex.com ...
: For Each objFile in strCurrentFolder.Files

for each objFile in objFolder.Files

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Curt_C [MVP]]

permissions perhaps? The user that IIS is running under doesn't have
permission to either the files/folder OR to the FileSsystemObject (most
likely this).

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Andi B" <mg****@dsl.pipex.com> wrote in message
news:42***********************@news.dial.pipex.com ...

Hi folks,

Wondering if anyone can help me - I have recently set up a website on our
work intranet, which allows staff members in our team to attach a photo of
themselves to their profile on the page. The photos are uploaded to the
webserver by an ASP script. I am now trying to get an addition written
which allows for the deletion of old files that are no longer used by
anyones profile. I have written the following to list the contents of the
folder, but whenever I test the script on my home computer (WinXP Pro,
SP2, IIS 5.1) the ASP hangs - it produces no output, not even an error.
Can anyone offer any assistance on what I might need to do to get it
working correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Andi B]

For this test, I have set the IUSR account permissions to Full Control, and
still nothing happens. I'm not sure how I can change the accounts permission
to access the FileSystemObject though.

Regards,

Andi

"Curt_C [MVP]" <software_AT_darkfalz.com> wrote in message
news:Oe**************@TK2MSFTNGP12.phx.gbl...

permissions perhaps? The user that IIS is running under doesn't have
permission to either the files/folder OR to the FileSsystemObject (most
likely this).

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Andi B" <mg****@dsl.pipex.com> wrote in message
news:42***********************@news.dial.pipex.com ...

Hi folks,

Wondering if anyone can help me - I have recently set up a website on our
work intranet, which allows staff members in our team to attach a photo
of themselves to their profile on the page. The photos are uploaded to
the webserver by an ASP script. I am now trying to get an addition
written which allows for the deletion of old files that are no longer
used by anyones profile. I have written the following to list the
contents of the folder, but whenever I test the script on my home
computer (WinXP Pro, SP2, IIS 5.1) the ASP hangs - it produces no output,
not even an error. Can anyone offer any assistance on what I might need
to do to get it working correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Mark Schupp]

Are you sure it is hanging or could it just not be producing any output?
What does view source show?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Andi B" <mg****@dsl.pipex.com> wrote in message
news:42***********************@news.dial.pipex.com ...

Hi folks,

Wondering if anyone can help me - I have recently set up a website on our
work intranet, which allows staff members in our team to attach a photo of
themselves to their profile on the page. The photos are uploaded to the
webserver by an ASP script. I am now trying to get an addition written
which allows for the deletion of old files that are no longer used by
anyones profile. I have written the following to list the contents of the
folder, but whenever I test the script on my home computer (WinXP Pro,
SP2, IIS 5.1) the ASP hangs - it produces no output, not even an error.
Can anyone offer any assistance on what I might need to do to get it
working correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Roland Hall]

"Roland Hall" wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
: "Andi B" wrote in message
: news:42***********************@news.dial.pipex.com ...
:: For Each objFile in strCurrentFolder.Files
:
: for each objFile in objFolder.Files

Actually you have more than one error. FSO expects a physical path, not
virtual. You need Server.MapPath and my first suggestion.
I just tried this and it works. Just change the name of your folders. I'm
using "/images"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = Server.MapPath("/images")

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in objFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

http://kiddanger.com/lab/files3.asp

--
Roland Hall
- some days are easier than others -

/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */

[Bernard]

If you have antivirus tools installed. such as Norton AV, try disable script
blocking........

--
Regards,
Bernard Cheah
http://www.tryiis.com/
http://support.microsoft.com/
http://www.msmvps.com/bernard/
"Andi B" <mg****@dsl.pipex.com> wrote in message
news:42***********************@news.dial.pipex.com ...

For this test, I have set the IUSR account permissions to Full Control,
and still nothing happens. I'm not sure how I can change the accounts
permission to access the FileSystemObject though.

Regards,

Andi

"Curt_C [MVP]" <software_AT_darkfalz.com> wrote in message
news:Oe**************@TK2MSFTNGP12.phx.gbl...

permissions perhaps? The user that IIS is running under doesn't have
permission to either the files/folder OR to the FileSsystemObject (most
likely this).

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Andi B" <mg****@dsl.pipex.com> wrote in message
news:42***********************@news.dial.pipex.com ...

Hi folks,

Wondering if anyone can help me - I have recently set up a website on
our work intranet, which allows staff members in our team to attach a
photo of themselves to their profile on the page. The photos are
uploaded to the webserver by an ASP script. I am now trying to get an
addition written which allows for the deletion of old files that are no
longer used by anyones profile. I have written the following to list the
contents of the folder, but whenever I test the script on my home
computer (WinXP Pro, SP2, IIS 5.1) the ASP hangs - it produces no
output, not even an error. Can anyone offer any assistance on what I
might need to do to get it working correctly?

<%@ Language=VBScript %>

<%
Option Explicit
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = "images/staff"

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in strCurrentFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

Thanks in advance of any assistance,

Andi

[Andi B]

Sir you are a genius. Just tested this code and it works brilliantly, thank
you very much!

I can't promise that I won't be back asking for more help, but in the mean
time, thank you.

Regards,

Andi

"Roland Hall" <nobody@nowhere> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

"Roland Hall" wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
: "Andi B" wrote in message
: news:42***********************@news.dial.pipex.com ...
:: For Each objFile in strCurrentFolder.Files
:
: for each objFile in objFolder.Files

Actually you have more than one error. FSO expects a physical path, not
virtual. You need Server.MapPath and my first suggestion.
I just tried this and it works. Just change the name of your folders.
I'm
using "/images"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder

Dim strCurrentFolder
strCurrentFolder = Server.MapPath("/images")

Set objFolder = objFSO.GetFolder(strCurrentFolder)

Dim objFile

For Each objFile in objFolder.Files
Response.Write objFile.Name & " (" & objFile.Size & "bytes)<br>"
Next

Set objFSO = Nothing
Set objFolder = Nothing
%>

http://kiddanger.com/lab/files3.asp

--
Roland Hall
- some days are easier than others -

/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */