estrarre un file da directory

[videoD]

ciao,

ho questo script:

dir="/nome directory"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("public/fotoutenti/"))
Set file3 = file2.Files

For Each file in file3

response.write file3.name

Next


che stampa il contenuto di una dir, come fccio per pescare solo un file, il primo che incontra?

Grazie

[Roby_72]

ilprimo = 1
For Each file in file3 
if ilprimo = 1 then
response.write file3.name 
end if
ilprimo = ilprimo + 1
Next

Roby

[videoD]

grazie mille..provo subito...

[videoD]

funziona tutto alla perfezione, ma come posso fare per eliminare l' estensione dei file?

se stampo file.name, lui mi stmapa ad esempio file.asp o .jpg , come faccio per eliminarla e stampare solo il nome del file?...

grazie mille

[Roby_72]

nome_file = file3.name
pos = instr(nome_file, ".")
response.write(left(nome_file,pos))

Roby

[videoD]

grande ora lo provo...

grazie mille

[videoD]

sono pignolo lo so.. .ma non riesco a levare il punto...

[Roby_72]

pos = instr(nome_file, ".") - 1

Roby