Vis alle txt filer

<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename("c:\test\")
response.write(p)
set fs=nothing
%>

kan man undgå at bruge den fulde sti...der sker ikke rigtigt noget...

Hvad mener du med det?  "...der sker ikke rigtigt noget..."

Ja, du kan skrive

<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename(Server.MapPath("c:\test\"))
response.write(p)
set fs=nothing
%>

//>Rune

Hvis jeg bruger:
<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename(Server.MapPath("/txt/"))
response.write(p)
set fs=nothing
%>
Får jeg som output: txt, hvor jeg gerne skulle ha fået tekstfil.txt
Den skulle gerne vise navnene på alle de tekstfiler der er i mappen txt

<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename(Server.MapPath("c:\test\"))
arrFileName = Split(p, ".")
strFileName = arrFileName(LBound(arrFileName))
Response.Write(strFileName)
set fs=nothing
%>

//>Rune

stadig det samme

jeg skal ha udskrevet navnene på de txt filer der ligger i mappen TXT...

jeg kan ikke teste den lig nu men prøv og se om den udskriver navnene på alle txt filer som ligger i mappen "test".

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
        pathSpec = Server.MapPath("c:\test\")
    Set FolderInfo = FSO.GetFolder(PathSpec)
    Set FileList = FolderInfo.Files
    For Each File In FileList
        Name = Cstr(File.Name)
                FileName = UCase(Name)
                If  Instr(FileName,".TXT") Then
            Response.Write Name
                end if
    Next