<% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("c:\test\")for each x in fo.files 'Print the name of all files in the test folder Response.write(x.Name & "<br />") nextset fo=nothing set fs=nothing %>
Hvis du kun vil have exe-filer, så burde dette virke.
<% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("c:\test\")for each x in fo.files If LCase(Right(x.Name, 3)) = "exe" then Response.write(x.Name & "<br />") nextset fo=nothing set fs=nothing %>
Slap dog af - vær' glad for at folk vil hjælpe dig - omvendt så er det også din opgave et stille et spørgsmål, som er præcist nok til at du kan acceptere en løsning.
Synes godt om
Slettet bruger
20. januar 2003 - 16:43#10
Hm, undskyld... finder det bare på download.com...
<% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("c:\test\")for each x in fo.files If LCase(Right(x.Name, 3)) = "exe" then Response.write "<li>" & x.Name & "</li>" nextset fo=nothing set fs=nothing %>
Jeg fatter hat i dag - et program, som en exe-fil.
Glem mit svar :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.