Ricerca di files sull'HD

[Rafio]

L'operazione che dovrei fare è la seguente:
Abilitare dei pulsanti solo se esiste un determinato file in una determinata cartella.
Ho provato con FileExist, ma mi da problemi con la Path.
Ci sono altri modi?

[Sypher]

e quali problemi ti da col path?

[Rafio]

Ho provato a far fare una ricerca anche su A: senza floppy per vedere se la ricerca la faceva veramente, ma non mi ha dato errore.

[Sypher]

Originariamente inviato da Rafio
Ho provato a far fare una ricerca anche su A: senza floppy per vedere se la ricerca la faceva veramente, ma non mi ha dato errore.

forse non sto capendo io ma il fileexist mica restituisce errore...ma un valore booleano

[Rafio]

Infatti FileExist mi restituisce "false", ma l'errore è il seguente:


Microsoft VBScript runtime error '800a004c'

Path not found

/personale/legge104.asp, line 84


DOVE LA LINEA 84 CONTIENE:
Set file2 = file1.GetFolder("nome_file.asp")

[Sypher]

Originariamente inviato da Rafio
Infatti FileExist mi restituisce "false", ma l'errore è il seguente:


Microsoft VBScript runtime error '800a004c'

Path not found

/personale/legge104.asp, line 84


DOVE LA LINEA 84 CONTIENE:
Set file2 = file1.GetFolder("nome_file.asp")

primo:ma li c'hai messo il percorso completo?
secondo:GetFolder recupera una cartella e non un file

[Rafio]

Allora ti faccio vedere un paio di tentativi:

1)

set fso = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath("C:\legge104")

if fso.fileExists("\ciccio.txt") then
response.write "Il file "& "Riprovati.asp" & " esiste!"
else
response.write "Il file " & "Riprovati.asp" & " non esiste!"
end if
set fso = nothing


2)

Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder("C:\legge104")
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next

Dove sbaglio?

[Sypher]

Originariamente inviato da Rafio
Allora ti faccio vedere un paio di tentativi:

1)

set fso = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath("C:\legge104")

if fso.fileExists("\ciccio.txt") then
response.write "Il file "& "Riprovati.asp" & " esiste!"
else
response.write "Il file " & "Riprovati.asp" & " non esiste!"
end if
set fso = nothing


2)

Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder("C:\legge104")
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next

Dove sbaglio?

nel primo nel fileexsist ci va il path completo

il secondo dovrebbe restituirti tutti i file nella cartella e mi sembra esatto come codice

[Rafio]

nome_file="A:\leggimi.txt"
Set mio_file = CreateObject("Scripting.FileSystemObject")
If (mio_file.FileExists(trim(nome_file))) Then
msg = nome_file & " esiste."
Else
msg = nome_file & " non esiste."
End If
ReportFileStatus = msg
response.write(msg)

QUESTO ERA IL PRIMO TENTATIVO FATTO ALL'INIZIO, PRIMA DEGLI ALTRI DUE.

HO PROVATO A METTERE LA PATH COMPLETA E MI DICE IMPOSSIBILE VISUALIZZARE LA PAGINA

[Sypher]

Originariamente inviato da Rafio
nome_file="A:\leggimi.txt"
Set mio_file = CreateObject("Scripting.FileSystemObject")
If (mio_file.FileExists(trim(nome_file))) Then
msg = nome_file & " esiste."
Else
msg = nome_file & " non esiste."
End If
ReportFileStatus = msg
response.write(msg)

QUESTO ERA IL PRIMO TENTATIVO FATTO ALL'INIZIO, PRIMA DEGLI ALTRI DUE.

HO PROVATO A METTERE LA PATH COMPLETA E MI DICE IMPOSSIBILE VISUALIZZARE LA PAGINA

ehm a me funziona...