ServerMapPath

[Arkimede]

Salve a tutti sto tentendo di fare una piccola utility per controllare se un file cè all'interno di una directory.
Vi posto il codice della funzione :
Function testfile
dim a,Dir
dim trovafile
set a = Server.CreateObject("Scripting.FileSystemObject")
trovafile = server.MapPath("\Fornitori\documenti\distecnici\ca me")&"\"&directory& "\"& Objrs("Disegno")&".pdf"

/* Directory è una variabile che si genera prendendo i dati dal DB */
if a.fileExists(Objrs("Disegno"))then

response.write "-Il file cercato non è presente !"

else

response.write "Il file cercato "& trovafile & " è presente!"
response.write "
" &trovafile
end if
set a = nothing
end Function

il problema è che non vede la variabile directory ma vede il record "objrs("disegno")"
ogni aiuto è gradito.

GRAZIEE

[Roby_72]

if a.fileExists(trovafile) then

Roby

[Arkimede]

Si hai ragione ho postato il codice che tavo provando.

[Arkimede]

si hai ragione ho postato il codice errato
if a.fileExists(trovafile)then

response.write "-Il file cercato non è presente !"
ma il problema non è questo
se faccio un response.write mi scrive:
D:\cartella1\Fornitori\documenti\distecnici\came\\ pippo.pdf
dove invece tra came e pippo.pdf deve inserimi la cartella di ricerca che gli ho passato attraverso la variabile.
la stringa dovrebbe essere cosi:
D:\cartella1\Fornitori\documenti\distecnici\came\c artellaXY\pippo.pdf

[Roby_72]

Evidentemente la variabile "directory" è vuota!

Roby

[vaargard]

per come hai scritto il codice la variabile directory non esiste all'interrno della stessa. non capisco. puoi postare la funzione per intero? gli passidei parametri?

[Arkimede]

si mi sono accorto adesso della stronz...
gli passo una funzione..
ti posto le due funzioni
Function Directory
dim CheckA(5)
CheckA(0)="100"
CheckA(1)="999"
CheckA(2)="1000"
CheckA(3)="5000"

If Objrs("Disegno") >= CheckA(0) and Objrs("Disegno") <= CheckA(1) then
response.write ObjRs("Lett")&CheckA(0)&"-"&ObjRs("Lett")&CheckA(1)
elseif Objrs("Disegno")>= CheckA(2) and Objrs("Disegno") <= CheckA(3)then
response.write ObjRs("Lett")&CheckA(2)&"-"&ObjRs("Lett")&CheckA(3)
end if
end function

Function testfile
dim a,Dir
dim trovafile
set a = Server.CreateObject("Scripting.FileSystemObject")
trovafile = server.MapPath("\Fornitori\documenti\distecnici\ca me")&"\"&directory&"\"& Objrs("Disegno")&".pdf"
if a.fileExists(trovafile)then
response.write "-Il file cercato non è presente !"
else
response.write "Il file cercato "& trovafile & " è presente!"
response.write "
" &trovafile
end if
set a = nothing
end Function
devo sicurmante scrivere meglio il il richiamo alla funzione di norma uso <%=funzione%> ma in mezzo li come faccio?
grazie

[Roby_72]

Se la directory la prendi fuori dalla funzione, all'interno della stessa non passa se non la passi come parametro.

Roby

[vaargard]

nella funzione directory invece che usare response.write dovresti comporre una stringa e assegnare alla fine della funzione quella stringa alla funzione stessa ...

function directory
if ...... then

stringa="kfnsdkljgfi"
else
stringa="kjsdfhsdhfuiegie"
end if


directory = stringa

end function

[Arkimede]

GRAZIE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ecco la modifica!!
If Objrs("Disegno") >= CheckA(0) and Objrs("Disegno") <= CheckA(1) then
Str= ObjRs("Lett")&CheckA(0)&"-"&ObjRs("Lett")&CheckA(1)

elseif Objrs("Disegno")>= CheckA(2) and Objrs("Disegno") <= CheckA(3)then
Str= ObjRs("Lett")&CheckA(2)&"-"&ObjRs("Lett")&CheckA(3)

end if
Directory=Str

end function


Muchas Grasias, Viele Danke, Thankyou, merci, GRAZIE!!