Toon posts:

[asp] newbie....bestandsnaam uitvragen

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hallo iedereen!!

Ik ben totaal nieuw met asp!!
Wat ik wil is een bestandsnaam uitvragen wat ergens in een veld dmv een browse knop is ingevuldt..hier wordt alleen het helepad ingevoerd...is opzich niet erg maar wil het ergens anders uitvragen maar wil daar alleen het bestand hebben.
Dit is wat r gebruikt wordt:

<%=rsFile.Fields("File_Name")%>

Ik wil dus van die File_Name alleen het bestand hebben

Is voor jullie waarschijnlijk piece a cake dus alvast bedankt!

Robin

Verwijderd

Eerst ff de laatste "\" opzoeken.

dim lPos, lLastPos, sFileName

sFileName = rsFile.Fields(.............

do
lPos = Instr(lLastPos + 1, sFileName, "\")
if lPos <> 0 then
lLastPos = lPos
end if
loop until lPos = 0

if mid(sFileName, lLastPos, 1) = "\" then
lLastPos = lLastPos + 1
end if

sFileName = mid(sFileName, lLastPos)

' sFileName bevat nu alleen de bestandsnaam

edit:
Code wat verbeterd (vorige kon nog wel eens in een infinite loop blijven hangen volgens mijn.

  • Basszje
  • Registratie: Augustus 2000
  • Laatst online: 17:07

Basszje

Reisvaap!]

Of gewoon FSO gebruiken.
Stel dat je path var filepath heet dan :

dim fso
set fso = server.CreateObject("scripting.filesystemobject")
dim file
set file = FSO.getfile(filepath)

response.write file.name

voila :)

(natuurlijk wel ff checken of het path etc correct is )

Beware of listening to the imposter; you are undone if you once forget that the fruits of the earth belong to us all, and the earth itself to nobody.


Verwijderd

Hmm. Ja met het FileSystemObject werkt ook, maar alleen als het bestand zich ook werkelijk op die machine bevindt. Ik kon uit de posting niet opmaken dat je ervanuit mocht gaan dat dit het geval was.

Maar als het wel zo is dan is jouw oplossing wel korter en eleganter. :)

Verwijderd

Topicstarter
Ja jongens allebij bedankt...zal vast werken maar heb nu een ander probleem dat ik gister ook had toen ik die browse knop toevoegde!!!

<% If (vCategory <> TRIM(rsFile.Fields("Category"))) Then
%>
<p>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td colspan="3"><h2><font color="#660033"><%=rsFile.Fields("Category")%></font></h2></td>

</tr>
<% End If %>




<% If (vCategory <> TRIM(rsFile.Fields("Category"))) Then
%>

Hij verw8 hier een instructie?? maar er is niks veranderd en heb m gister grondig getest en de fout was ineens weg!

Alvast bedankt!
Robin

Verwijderd

Topicstarter
Jongens bedankt!!!
Hij doet het!!!
Ik heb trouwens jouw code gebruikt klokkie want het bestand staat inderdaad niet op deze comp zelf maar op de server..(zal ik r voortaan bijzetten!!!)
Robin
Pagina: 1