---
title: "Fso --> Nu blir det komplicerat!(?)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52206-fso-nu-blir-det-komplicerat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jimpa"
published: "2002-09-04T15:50:09.000Z"
updated: "2002-09-04T22:38:27.000Z"
replies: 8
views: 311
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/52206-fso-nu-blir-det-komplicerat"
---

# Fso --> Nu blir det komplicerat!(?)

## #1 — jimpa, 2002-09-04T15:50Z

Hej

Nu har jag kört fast med mitt FSO-ande

Jag håller på med ett script där användare kan spara sina bilder.
Problemet är hur jag göra för att alla användares bilder ska kunna visas *(själva loopen)* , då varje användare har en unik mapp samt en undermapp där eventuella bilder sparas.

Mapp strukturen blir typ

Om användare har sparat bilder:
Mapp (Kalle) - Undermapp(bilder) - Bildfiler
Mapp (Nisse) - Undermapp(bilder) - Bildfiler
Mapp (Pisse) - Undermapp(bilder) - Bildfiler

Om inte användaren har sparat några bilder finns endast:
Mapp (Kalle)

\--------

För att Loopa igenom **en** användares bilder använder jag denna kod

```
    Folder = Session("MM_Username")

    Set F = FSO.GetFolder(Server.MapPath("Xuser\" & Folder & "\bilder"))
    For Each File in F.Files

'skriver ut

next
```

Men hur blir koden nu när jag måste loopa igenom alla användares mappar *Folder* som innehåller mappen *bilder* som innehåller bildfilerna ?

Mvh Jimpa

Permalänk: https://www.webforum.nu/p/52206

## #2 — Pace, 2002-09-04T16:18Z

Du får väl först hämta alla användarna till ett recordset alternativt en matris och göra loopen där.

Permalänk: https://www.webforum.nu/p/772099

## #3 — jimpa, 2002-09-04T16:22Z

Lite kod skulle underlätta :o :l

Permalänk: https://www.webforum.nu/p/772101

## #4 — Pace, 2002-09-04T16:41Z

Hmm, missuppfattade nog frågan. Du vill alltså loopa igenom *mapparna* (inte databasen som i sin tur pekar till en mapp)?

Permalänk: https://www.webforum.nu/p/772111

## #5 — jimpa, 2002-09-04T17:01Z

Ja precis!

Jag vill Loopa igenom alla användares mappar och finns det en mapp i resp. mapp som heter *bilder* så ska jag skriva ut alla dom bilderna...

//Jimpa

Permalänk: https://www.webforum.nu/p/772123

## #6 — Pace, 2002-09-04T17:10Z

Här är ett exempel du kan bygga vidare på:

<http://www.webforum.nu/showthread.php?s=&threadid=42570>

Permalänk: https://www.webforum.nu/p/772129

## #7 — jimpa, 2002-09-04T18:42Z

Weeee

TaMäFän jag fixat själv  :birp 

```
<%
Dim objFSO, objFolder, F

set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath("Xuser"))
For Each objFolder in objFolder.SubFolders
if objFSO.FolderExists(server.mappath("Xuser\" & objFolder.Name & "\mypictures")) = true Then
    Set F = objFSO.GetFolder(Server.MapPath("Xuser\" & objFolder.Name & "\mypictures"))
End if
Next
    For Each File in F.Files
Response.Write File.Name & "<br>"
Next
Set F = Nothing
set objFolder = Nothing
set objFSO = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/772208

## #8 — jimpa, 2002-09-04T20:19Z

Hehe
Nya problem  :P 

Nu försöker jag lägga till Paging till sidan också. Hittade ett ganska enkelt paging-script som jag försöker modifiera om lite.
Som det är nu så får jag inga felmeddelanden men scriptet fattar inte att det ska byta poster när man klickar framåt o bakåt på länkarna finns det nån som möjligen kan hjälpa mig att få till detta så det funkar?

```
<%

'Number of Items per page
NumPages = 1

Dim objFSO, objFolder, F

set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath("Xuser"))
For Each objFolder in objFolder.SubFolders
if objFSO.FolderExists(server.mappath("Xuser\" & objFolder.Name & "\mypictures")) = true Then
    Set F = objFSO.GetFolder(Server.MapPath("Xuser\" & objFolder.Name & "\mypictures"))
End if
Next
TotalRows = 0
    For Each File in F.Files

' Something found
if Right(File.Name, 3) <> "txt" Then
TotalRows = TotalRows + 1
end if
Next

PageSize = NumPages
TotalPages = (TotalRows/PageSize)

select case Request.QueryString("move")
	case "first" pageNo = 1  '  First
	case "previous" pageNo = cint(Session("page_num")) - 1  '  Next
	case "next" pageNo = cint(Session("page_num")) + 1  '  Previous
	case "last" pageNo = TotalPages  '  Last
	case Else PageNo = 1
End Select

if cint(PageNo) < 1 then PageNo = 1
if cint(PageNo) > TotalPages then pageNo = TotalPages

AbsolutePage = PageNo
PageNumber=PageNo
Session("page_num") = PageNo'

HowMany = 0
'Response.Write "<div align='center'><center><table border='0' width='425'>"
'Do until rs.EOF or 
    For Each File in F.Files
    if NOT HowMany => NumPages then
if Right(File.Name, 3) <> "txt" Then
Response.Write File.Name & "<br>"
howmany = howmany + 1
End if
End if
Next

Response.Write "<p align='center'>"
Response.Write "<a font class='forum' href='folder_test.asp?mode=show&move=first'>&lt;&lt;</a> "
Response.Write "<a font class='forum' href='folder_test.asp?mode=show&move=previous'>&lt;</a> "
Response.Write "<a font class='forum' href='folder_test.asp?mode=show&move=next'>&gt;</a> "
Response.Write "<a font class='forum' href='folder_test.asp?mode=show&move=last'>&gt;&gt;</a> "
Response.Write "<br>"
Response.Write "<p align='center'>" & PageNumber & " av " & TotalPages & "</p>"
Set F = Nothing
set objFolder = Nothing
set objFSO = Nothing
%>
```

Mvh Jimpa

Permalänk: https://www.webforum.nu/p/772277

## #9 — jimpa, 2002-09-04T22:38Z

Hittade en tråd med liknande paging  
Nu funkar det utmärkt :D 

Blev så här:

```
<%

'Number of Items per page
NumPages = 3

Dim objFSO, objFolder, F

set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath("Xuser"))
For Each objFolder in objFolder.SubFolders
if objFSO.FolderExists(server.mappath("Xuser\" & objFolder.Name & "\mypictures")) = true Then
    Set F = objFSO.GetFolder(Server.MapPath("Xuser\" & objFolder.Name & "\mypictures"))
End if
Next
TotalRows = 0
    For Each File in F.Files

' Something found
TotalRows = TotalRows + 1
end if
Next

PageSize = NumPages
PageCount = TotalRows \ PageSize + 1 
PageIndex = Request.QueryString("sida") 
If PageIndex = "" Then 
PageIndex = 1 
End If 
FirstIndex = (PageIndex - 1) * PageSize 
LastIndex = FirstIndex + PageSize 
    
If TotalRows = 0 Then
Response.Write "Nada"
Else

For Each File in F.Files
if Index < FirstIndex Then
Elseif Index < LastIndex Then
Response.Write F
Response.Write File.Name & "<br>"
strUrlPath = Right(F,Len(F)-InstrRev(F,"Xuser"))
Response.Write "<a target=""_blank"" href=""X" & strUrlPath & "/" & File.Name & """><img src=""X" & strUrlPath & "/" & File.Name & """></a><br>"
Else 
Exit For
End if
Index = Index + 1 
Next
End If

For i = 1 To PageCount 
if i = CInt(PageIndex) Then 
Response.Write  "<b>" & i & "</b>"
Else
Response.Write " <a href=folder_test.asp?sida=" & i & ">" & i & "</a> "
End if 
Next

Set F = Nothing
set objFolder = Nothing
set objFSO = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/772364

---

Tråden på webben: https://www.webforum.nu/amne/asp/52206-fso-nu-blir-det-komplicerat