hent filnavn

Prøv den her funktion:

<%
Function GetAnExtension(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

response.write (GetAnExtension (\"e:\\lang.dat\"))
%>

Jeg har testet den og det ser ud til at virke som det skal.

filnavn = \"c:\\dokumenter\\.....\\images\\bog.gif\"
suffix = RIGHT(filnavn, InStr( filnavn, \".\" )

/nute

spectual sitt exempel fungerer selvfølgelig kun hvis du benytter FileSystemObject, mens mitt fungerer generelt... :)

hov...sorry....leste ikke hele spectual sitt exempel...hans metode er god...

nute:

jeg vil sige at det er bedre at bruge mit eksempel, fordi jeg tror dit ikke kan håndtere alle filnavne.

F.eks. tror jeg den vil fejle hvis du have en fil der hed:

eksempel.html.htm

Da vil den vist returnere \".html.htm\"

spectual >> den vil kun returnere .htm, for InStr finner første opptreden av angitte streng (i dette tilfelle et .) i en streng...

/nute

ja det er rigtigt nute :)

<%
Function GetAnExtension(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

response.write (GetAnExtension (\"e:\\lang.dat\"))
%>

denne returnere ikke mit fil-formfelt (name=\"billede\")

jeg mener navnet på filen i mit fil-formfelt

Æh... du har placeret dit spørgsmål forkert så. Det er jo javascript du har brug for så.

Ja, eller nute\'s eksempel.

fordi jeg gerne vil skrive filen\'s navn til min db, så jeg havde forstillede mig, at jeg ville lave en varibel der bestod af filnavn.endelse (f.eks. siden.doc)

har du testet mitt exempel ??

Ellers kan du prøve den her:

Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAName = fso.GetFileName(DriveSpec)
End Function

Den faktisk ud til at kunne returnere filnavnet selvom filen ikke eksisterer.

Den faktisk ud til at kunne returnere filnavnet selvom filen ikke eksisterer.

hovsa

Jeg tror vi snakker forbi hinanden.....
Mit problem er at når jeg submitter en form:
<form action=\"get_file_name.asp\">, med feltet:
<input type=\"file\" name=\"fil\">, så vil jeg gerne på siden:
\"get_file_name.asp\" kunne hente:
\"filname.extension\" som en variabel fra formelementet \"fil\".
Men hverken nute\'s eller dit eksempel virker når jeg tester det.

Ja. Men dette skulle da gerne virke så:

Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAName = fso.GetFileName(DriveSpec)
End Function

filnavn = GetAName (request (\"fil\"))

response.write (\"Filnavn fra formen er : \" & filnavn & \"<br>\")
response.end

(det var ellers en god og forståelig forklaring du kom med der)

Koden skal sættes ind i get_file_name.asp.

Det eneste jeg får ud er:

Filnavn fra formen er :

....og mere står der ikke ???

Har du selv testet den ?

jeg har lige smidt flere point i spørgsmålet, som tak for din tid indtil videre.

Nej. Det er sikkert fordi din form ikke får sendt det over til næste side.

Prøv at indsætte følgende istedet for:

Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAName = fso.GetFileName(DriveSpec)
End Function

filnavn = request (\"fil\")

response.write (\"Filnavn fra formen er : \" & filnavn & \"<br>\")
response.end

Hvad skriver den?

Nu henter den jo bare hele felt værdien (c:\\dokumenter\\....\\side.doc), og ikke kun filnavnet (side.doc) ?

ja, det var for at se om den fik data fra formen. Jeg tester den lige... :)

Følgende virker fint hos mig:

1. fil: Step1.html

<HTML><BODY BGCOLOR=\"#FFFFFF\">
<form action=\"textarea_boldtest.asp\" method=\"post\" name=\"info\">
<input type=\"file\" name=\"fil\"></input>
</form>
<input onClick=\"java script:document.all [\'info\'].submit();\" type=\"button\" value=\"Skaf filnavn\"></input>
</BODY></HTML>

2. fil - step2.asp:

<html><body>
<%
Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAName = fso.GetFileName(DriveSpec)
End Function

filnavn = GetAName (request (\"fil\"))

response.write (\"Filnavn fra formen er : \" & filnavn & \"<br>\")
response.end
%>
</BODY></HTML>

Bruger du forresten pws eller iis?

spectual >> GetFileName kan vist kun bruges på filer som er lagret på harddisken ?

nej. Det virker selvom den ikke eksisterer. Jeg har prøvet det! :)

teras >> Ellers, hvis du ikke kan få det til at virke kan du jo modificere nuke\'s kode lidt til:

filnavn = request (\"fil\")
suffix = RIGHT(filnavn, InStr( filnavn, \"/\" )

Men det er at fortrække at bruge mit eksempel vil jeg tro.

Ups, det skal jo selvfølgelig være:

filnavn = request (\"fil\")
suffix = RIGHT(filnavn, InStr( filnavn, \"\\\" )

response.write (\"Filnavn fra formen er : \" & filnavn & \"<br>\")
response.end

jeg får stadig bare....

Filnavn fra formen er :

???

Har du prøvet det nye kode?

Kører du Windows 98 eller Windows 2000?

Jeg har mistanke til at det ikke virker med Personal Web Server.

Hov nu virker det.....næsten.

Jeg havde lige lavet en lille fejl selv.

Nu skriver den filename.extension

men der kommer et komma på for enden ?

Hvilken af eksemplerne bruger du?

<html><body>
<%
Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  GetAName = fso.GetFileName(DriveSpec)
End Function

filnavn = GetAName (request (\"fil\"))

response.write (\"Filnavn fra formen er : \" & filnavn & \"<br>\")
response.end
%>
</BODY></HTML>

Kommer der et komma på siger du?

Altså f.eks.:

Filnavn for formen er : test.doc,

jepper det virker lidt underligt !

det kan du fjerne sånn:

filnavn = replace(GetAName(request (\"fil\")),\",\",\"\")

/nute

Hvis du indsætter denne linje ind lige før den anden response.write, kan du se om det er funktionen der laver det komma:

response.write (request (\"fil\") & \"<br>\")

Jeg er jer dybt taknemlige !

anytime ;)

skulle det være en anden gang :o)