Dim fso, f, f1, fc, folder folder = \"C:/blabla/blabla/\" Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f = fso.GetFolder(folder) Set fc = f.Files For Each f1 in fc response.write f1.name & \"<BR>\" Next
<% Function ShowFolderList() folderspec = server.mappath(\".\") Set fso = Server.CreateObject(\"Scripting.FileSystemObject\") Set folder = fso.GetFolder(folderspec) Set foldercollection = folder.Files For Each file in foldercollection tmp = tmp & \"<a href=\'\" & file.name & \"\'>\" & file.name & \"</A><BR>\" Next ShowFolderList = tmp End Function response.write showfolderlist() %>
netsrac >> jeg har fået løst mit problem såmend :-) Jeg gør det via SQL´en, så kan det gøres både i access og ORACLE *fedt!* Hvad/hvor er aspadmin? *fatter ikke en pik*
Jeg har en side som heder: default.asp den side hvad skal den indeholde??? Selve default.asp skal der kun stå
<% Function ShowFolderList() folderspec = server.mappath(\".\") Set fso = Server.CreateObject(\"Scripting.FileSystemObject\") Set folder = fso.GetFolder(folderspec) Set foldercollection = folder.Files For Each file in foldercollection tmp = tmp & \"<a href=\'\" & file.name & \"\'>\" & file.name & \"</A><BR>\" Next ShowFolderList = tmp End Function response.write showfolderlist() %> ??????? Eller skal der stå andet giv lige en bedre forklaring... jeg vil godt give flere points men det skal sQ virke for det.....
Sludder det gør du nok, det er noget med rettigheder tror jeg.
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.