---
title: "asp smart upoad problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/59038-asp-smart-upoad-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "archangel"
published: "2002-11-14T16:58:17.000Z"
updated: "2002-11-15T13:27:33.000Z"
replies: 8
views: 267
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/59038-asp-smart-upoad-problem"
---

# asp smart upoad problem

## #1 — archangel, 2002-11-14T16:58Z

hur gör jag ett script som man kan ladda upp filer med

6 st filer... 3 st till en mapp o 3 till en annan...

Set ObjFolder = CreateObject("Scripting.FileSystemObject") 
        
strPath=Server.MapPath("/db/testmapp")
If not ObjFolder.FolderExists(strpath) then
  ObjFolder.CreateFolder strPath
end if
        
Set myUpload = Server.CreateObject "aspSmartUpload.SmartUpload")
myUpload.upload
        
myUpload.Save(strPath)

denna kod spar ju alla filer från formuläret till strPath

men ajg vill att dom 3 första filerna i foruläret ska till en mapp och dom 3 andra till en annan...

lyckas inte klura ut hur man delar upp det...

ok... 2 st formulär med varsin submit knapp och 2 st scripts som spar på olika ställen ... men den lösningen känns inte så bra... speciellt då det inte skulle funka logisk med 2 submitknappar på sidan...

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

## #2 — OveRRidE, 2002-11-14T18:55Z

Skall det inte vara en loop eller for each-sats nånstans där i mitten också?

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

## #3 — archangel, 2002-11-14T20:25Z

ingen aning... koden som den är nu sparar alla filerna från formuläret...

men för att spara dom på olika ställen bär det jku krävas ngn form av loop som loopar igenom domme jag vet itne hur...

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

## #4 — solbulle, 2002-11-14T21:24Z

Borde fungera tycker jag:

```
Set ObjFolder = CreateObject("Scripting.FileSystemObject") 

strPath=Server.MapPath("/db/testmapp") 
If not ObjFolder.FolderExists(strpath) then 
ObjFolder.CreateFolder strPath 
end if 

Set myUpload = Server.CreateObject "aspSmartUpload.SmartUpload") 
myUpload.upload 

 
   For each file In myUpload.Files
	I = 0
      	If not file.IsMissing Then
			If I < 3 then
        			file.SaveAs(strPath & "/" & file.FileName)
			Else
        			file.SaveAs(strPath & "/ny_mapp/" file.FileName)
			End If
      	End If
	I = I + 1
   Next
```

Finns väl smidigare sätt o skriva, typ med mod o prylar för den som behärskar det...

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

## #5 — archangel, 2002-11-15T11:12Z

hmm det där ser ut ungefär vad jag hade väntat  mig men absolut inte kunde få till själv...

nu får jag dockl error

\<%
Set ObjFolder = CreateObject("Scripting.FileSystemObject") 

strPath1=Server.MapPath("/db/testmapp") 
strPath2=Server.MapPath("/db/testmapp2") 

If not ObjFolder.FolderExists(strpath2) then 
	ObjFolder.CreateFolder strPath2 
end if

If not ObjFolder.FolderExists(strpath1) then 
	ObjFolder.CreateFolder strPath1
end if

Set myUpload = Server.CreateObject ("aspSmartUpload.SmartUpload") 
myUpload.upload 

 
   For each file In myUpload.Files
	I = 0
      	If not file.IsMissing Then
			If I \< 3 then
        			file.SaveAs(strPath1 & "/" & file.FileName)
			Else
        			file.SaveAs(strPath2 & "/" & file.FileName)
			End If
      	End If
	I = I + 1
   Next

%\>

Server.MapPath() error 'ASP 0172 : 80004005' 

Invalid Path 

/seafunny/upload.asp, line 32 

The Path parameter for the MapPath method must be a virtual path. A physical path was used.

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

## #6 — archangel, 2002-11-15T11:22Z

ganska enkelt fel var de tju...   blandar ju virtuell o fysisk sökväg.... ska ju vara \\istället för /

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

## #7 — archangel, 2002-11-15T11:23Z

men koden funkar iaf inte... alla filerna hamnar i strpath1

\<%
Set ObjFolder = CreateObject("Scripting.FileSystemObject") 

strPath1=Server.MapPath("/db/testmapp") 
strPath2=Server.MapPath("/db/testmapp2") 

If not ObjFolder.FolderExists(strpath2) then 
	ObjFolder.CreateFolder strPath2 
end if

If not ObjFolder.FolderExists(strpath1) then 
	ObjFolder.CreateFolder strPath1
end if

Set myUpload = Server.CreateObject ("aspSmartUpload.SmartUpload") 
myUpload.upload 

 
   For each file In myUpload.Files
	I = 0
      	If not file.IsMissing Then
			I = I + 1
			If I \< 3 then
        			file.SaveAs(strPath1 & "\\" & file.FileName)
			Else
        			file.SaveAs(strPath2 & "\\" & file.FileName)
			End If
      	End If
	I = I + 1
   Next

%\>

testade att lägga till en i=i+1 i if satsen oxå utan resultat...

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

## #8 — solbulle, 2002-11-15T12:02Z

Ah, pappskallen = jag!

Flytta upp I = 0 innan For each satsen...

Vad trött jag blir på mig själv ibland...

```
<% 
Set ObjFolder = CreateObject("Scripting.FileSystemObject") 

strPath1=Server.MapPath("/db/testmapp") 
strPath2=Server.MapPath("/db/testmapp2") 

If not ObjFolder.FolderExists(strpath2) then 
ObjFolder.CreateFolder strPath2 
end if 

If not ObjFolder.FolderExists(strpath1) then 
ObjFolder.CreateFolder strPath1 
end if 

Set myUpload = Server.CreateObject ("aspSmartUpload.SmartUpload") 
myUpload.upload 

I = 0
	For each file In myUpload.Files 
 
		If not file.IsMissing Then 
			If I < 3 then 
				file.SaveAs(strPath1 & "\" & file.FileName) 
			Else 
				file.SaveAs(strPath2 & "\" & file.FileName) 
			End If 
		End If

		I = I + 1 
	Next 
%>
```

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

## #9 — archangel, 2002-11-15T13:27Z

lungt..

hehe lungt.. löste det själv ganska snabbt...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/59038-asp-smart-upoad-problem