eliminare l'estensione da un file

[gguida]

ciao a tutti,

utilizzo il seguente codice per elencare i file di una dir, vorrei pero stamparli senza l'estensione...come posso fare???

grazie:

Dim fs
								Dim dir
								dim File
								Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
								 Set dir = fs.GetFolder (server.mappath("/mdb-database/")) %>
                                <%For Each File In dir.Files%>
                                <option value="<%=File.Name%>" ><%=File.Name%></option>
                                <%next%>
	              <%  Set fs = Nothing
	               Set Dir = Nothing %>

[Roby_72]

Dim fs
Dim dir
dim File
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Set dir = fs.GetFolder (server.mappath("/mdb-database/")) %>
<%For Each File In dir.Files
dot = instr(File.Name,".")%>
<option value="<%=File.Name%>" ><%=left(File.Name,dot)%></option>
<%next%>
<%  Set fs = Nothing
Set Dir = Nothing %>

Roby

[gguida]

grazie roby...e per togliere anche il punto finale??

[kluster]

left(File.Name,dot-1)

[Roby_72]

Ehmmm si giusto!

Roby

[gguida]

grazie ragazzi