Filnavn uden efternavn

Tags:    asp

Hey alle..

Jeg sidder lige og laver noget ASP og så vil jeg gerne udskrive alle de filer jeg har liggende i mappen "filer". Men jeg vil ikke have endelse på, som fx .htm ved index.htm.

Jeg har leget lidt med tanken om at lave det som et regnestykke. Altså: item.name - right(item.name,3)

Desværre er filnavnet ikke altid lige langt så jeg kan ikke bare skrive left(item.name,5).

Er der noget de har en idé? Desuden ser min kode sådan her ud:


<% ListFolderContents(Server.MapPath("/filer/")) %>

<%
sub ListFolderContents(path)

dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

for each item in folder.Files

response.write item.name

next
end sub
%>



Indlæg senest redigeret d. 07.06.2006 15:01 af Bruger #6892
6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Prøv det her!

Fold kodeboks ind/udKode 




Kan du ikke bare splitte alle dine filnavne op med . og kun tage den første del. Fx. så item.name
Fold kodeboks ind/udKode 


så array kommer til at se sådan her ud:
Fold kodeboks ind/udKode 


og bare udskrive array[0]? Ved ikke hvordan man lige præcis gør i ASP, men det må da ku' lade sig gøre.



Tak for svarerne.

Jeg havde slet ikke tænkt på at jeg kunne splitte det op ved punktummer. :)

Koden endte sådan her:


<%
sub ListFolderContents(path)

dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

for each item in folder.Files

arrM = split(item.name,".")

response.write arrM(0)

next
end sub
%>



Indlæg senest redigeret d. 07.06.2006 23:16 af Bruger #6892
Jojo det kan man godt. Meget nemt endda.







Og så tror jeg folk ville blive glade, hvis du gad dele ud af de points...



t