Returner filnavn

If Instr(Databasenavn, ".") > 0 Then
  Filnavn = Left(DatabaseNavn,Instr(Databasenavn, ".") - 1)
End If

Ja - men jeg ved ikke på forhånd hvad filen heder ?

Jeg ved at den har ext mdb

Så skal du bruge noget FileSystemObject kode, til at loope igennem alle filerne, og derefter noget der ligner det her:

if InStr(objFile.name, ".mdb") > 0 then filnavn = left(objFile.Name, InStr(objFile.Name, ".mdb") - 1)

Hvordan skal den loope se ud ?

Jeg smækker lige noget sammen..

<%
Dim objFileScripting, objFolder
Dim filename, filecollection
dim mdbfil

Set objFileScripting = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileScripting.GetFolder(server.mappath("."))
Set filecollection = objFolder.Files

For Each filename In filecollection
  if InStr(filename.name, ".mdb") > 0 then mdbfil = left(filename.Name, InStr(filename.Name, ".mdb") - 1)
Next

Response.write "mdbfile: " & mdbfil
%>

server.mappath(".") betyder at den skal kigge i samme mappe, som selve asp filen er i.

Men du er sikker på at der kun er 1 mdb fil i mappen? Den tager nemlig kun den sidste den finder.

hvad hvis den ligger i en folder som hedder fpdb ?

Hvor ligger folderen "fpdb" i forhold til asp filen med koden?

Det ser sådan ud:

web-bedsted
  fpdb (folder hvår databasefilen ligger)
  kundekart (asp folder)

server.mappath("/fpdb")

Ok - det virker - åbn svar

Her er et svar fra mig. :)
"åbn svar" :) Den har jeg vist ikke set før :)

Nej det kan man da vidst godt sige - men åbn for point er vel mere rigtigt.
Men elles tak for hjælpen - god Juleaften.

Jeg takker for points, og glædelig jul til dig :)