io ho questo codice:
<%
dim path
dim fso
dim fold
dim fileCount
dim cFcount
dim fNames
dim file
dim tName
dim nName
dim buffer
dim i
dim content
dim objFiles
dim objfso
dim strpath
path = "c:\inetpub\wwwroot\andrea\immagini\"
strpath = "immagini\"
set fso = CreateObject("Scripting.fileSystemObject")
set fold = fso.getFolder(path)
--> Set objFolder = objFso.GetFolder(Server.MapPath(strpath))
Set objFiles = objFolder.Files
fileCount = fold.files.count
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next
for i = 1 to fileCount
content = content & fNames(i) & "
"
next
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
%>
[img] & '<% Response.Write strfile.name & content %>' & [/img]
nella riga 29(quella con la freccia) m dice che:
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/Andrea/Immagini.asp, line 29
Tipo di browser:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Pagina:
GET /Andrea/Immagini.asp
Ora:
venerdì 3 settembre 2004, 17.29.38
ma è giusto... cosa devo fare???
Rispondi quotando
