<%
drivename1 = Server.MapPath("img/flags/")
Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder = fso.GetFolder(drivename1)
Set filecollection = mainfolder.Files
For Each file In filecollection
If LCase(Right(Trim(file.Name), 4)) = ".gif" Then
strNamn = Trim(file.Name)
Response.Write "<option>" & Left(strNamn, Len(strNamn) - 4) & "</option>"
End If
Next
%>
Frågan#1
Hejsan!
Har en liten enkel fråga som jag inte får bukt med.
Jag listar upp alla flaggor i en Select från en katalog med hjälp av FSO.
Nu vill jag att den bara ska lista filer som slutar på .gif och att det som ska skrivas ut enbart är det innan punkten.
Såhär ser koden ut just nu:
<%
drivename1 = Server.MapPath("img/flags/")
Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder = fso.GetFolder(drivename1)
Set filecollection = mainfolder.Files
For Each file In filecollection
Response.Write "<option>" & file.Name & "</option>"
Next
%>
Tack på förhand!
Mvh