Dokument

--- title: "lista/visa office-dok" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/11535-lista-visa-office-dok" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "rollo" published: "2001-08-30T06:18:00.000Z" updated: "2001-09-10T08:08:00.000Z" replies: 13 views: 230 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11535-lista-visa-office-dok" --- # lista/visa office-dok ## #1 — rollo, 2001-08-30T06:18Z Hej! Håller på och bygga ett intranät och har kommit till avdelningen befintliga office-dokuement, vi har hela vår handbok i office-dokument som skall vara åtkomlig via intranätet. Jag söker en "filhanterare" som kan hantera dokumenten och har sökt i forumet och hittat . Men denna klarar bara 8 tecken i filnamnet och dokumenten har fler än 8 tecken i namnet. Har sökt med ljus och lykta på olika ASP-sidor där ute, men inte hittat något bra! Kan någon tips om ett bra script?! tackar! rollo Permalänk: https://www.webforum.nu/p/11535 ## #2 — rollo, 2001-08-30T06:46Z dubbeltumme! jag hittade ett script som heter AgroBrowse funkar perfekt till mina ändamål! rollo Permalänk: https://www.webforum.nu/p/286039 ## #3 — Bj, 2001-08-30T09:23Z Kommer inte ihåg var jag hittade detta en gång i tiden men det funkar bra. ``` <% If Request.QueryString("path") = "" Then StartMapp = "C:\InetPub\wwwroot\till\den\mapp\som\denna\fil\ligger\i" 'fysisk sökväg StartMappUrl = "http://www.minsida.se/till/den/mapp/som/denna/fil/ligger/i" 'url Else StartMapp = Request.QueryString("path") StartMappUrl = Request.QueryString("url") End If Set filsystemobjekt = CreateObject("Scripting.FileSystemObject") Set folder = filsystemobjekt.GetFolder(StartMapp) Set filer = folder.Files Set underkataloger = folder.SubFolders %> Dokument

Följande dokument finns.

<% For Each folder in underkataloger ' Nedan kontrollerar vi så att det inte visas några mappar med konstiga attribut If folder.Attributes < 50 then %> <% end if Next %> <% For Each folder in filer ' Nedan kontrollerar vi så att det inte visas några filer med konstiga attribut If folder.Attributes < 50 then %> <% end if Next %>

Filnamn	Storlek
<% Response.Write "" & folder.name & " " %>	<%= folder.Size %>
<% Response.Write "" & folder.name & " " %>	<%= folder.Size %>

<% Set filsystemobjekt = Nothing Set folder = Nothing Set filer = Nothing Set underkataloger = Nothing %> ``` Permalänk: https://www.webforum.nu/p/286040 ## #4 — rollo, 2001-08-30T09:33Z Tack Bj! Det är samma som fanns på länken jag la in, det kommer från MikroDatorn och jag har inte fått det till att funka om man har fler än 8 tecken i namnet på mapp och fil! rollo Permalänk: https://www.webforum.nu/p/286041 ## #5 — Bj, 2001-08-30T09:44Z Just det! Mikrodatorn var det. Men visst funkar det med fler än 8 tecken. Permalänk: https://www.webforum.nu/p/286042 ## #6 — rollo, 2001-08-30T10:51Z rätt! det funkar med fler än 8 tecken, men inte om man har mellanslag med i fil/mappnamn! rollo Permalänk: https://www.webforum.nu/p/286043 ## #7 — Method, 2001-08-30T10:54Z Kan denna koden bara visa worddokument eller visar den det som ligger i mappen ? För jag behöver antingen denna lr en liknande kod men vill gära att den visar andra filer än word. kolla på mitt inlägg angående detta Tack på förhand Jonas Permalänk: https://www.webforum.nu/p/286044 ## #8 — rollo, 2001-08-30T11:00Z båda koderna kan visa mappar i den mappen som skall visas samt alla filer som finns i mapparna! rollo Permalänk: https://www.webforum.nu/p/286045 ## #9 — Method, 2001-08-30T11:20Z Oooops en blunder.... \[Redigerat av Method den 30 aug 2001\] Permalänk: https://www.webforum.nu/p/286046 ## #10 — Method, 2001-08-30T13:32Z Det verkar inte funka att öppna den om det finns mellanslag i wordfilen finns det något sätt att komma förbi detta? (förutom att namnge utan mellaslag) Jag får filerna uppladdade så det e inte säkert att folk laddar upp utan mellanslag. Permalänk: https://www.webforum.nu/p/286047 ## #11 — rollo, 2001-08-30T13:36Z testa den andra kodbiten som jag hittade, se mitt svar på mitt inlägg! rollo Permalänk: https://www.webforum.nu/p/286048 ## #12 — sundog, 2001-08-30T13:56Z Testa det här, borde funka. ``` <% Dim Parts, fso, Dir Set fso = CreateObject("Scripting.FileSystemObject") folder = "c:\fysisk\sökväg\till\mapp\" Set Dir = fso.GetFolder(folder) For Each File In Dir.Files Parts = Split(file, folder, -1, 1) docu = Replace(Parts(1), " ", "") Response.Write docu Next %> ``` Permalänk: https://www.webforum.nu/p/286049 ## #13 — Method, 2001-08-31T07:22Z sundog jag antar att din kod löser mellanslag i filnamnet? Om det är det koden gör hur skall man göra för att få in den i BJ´s kod? Tack på förhand Jonas Permalänk: https://www.webforum.nu/p/286050 ## #14 — sundog, 2001-09-10T08:08Z Sorry, såg inte att jag fått en fråga... Om det bara är ta-bort-mellanslags-funktionen du vill använda i koden så gör du det med replace. ``` docu = Replace("Texten du vill ändra", " ", "") ``` docu blir då = Textenduvilländra Permalänk: https://www.webforum.nu/p/286051 --- Tråden på webben: https://www.webforum.nu/amne/asp/11535-lista-visa-office-dok