I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% 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.