---
title: "The IF sats from hell"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38755-the-if-sats-from-hell"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2002-03-01T07:40:26.000Z"
updated: "2002-03-01T07:44:54.000Z"
replies: 1
views: 210
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/38755-the-if-sats-from-hell"
---

# The IF sats from hell

## #1 — His Divine Shadow, 2002-03-01T07:40Z

Jo undrar hur man lägga en IF sats på detta?
Denna kod skapar en egen mapp för registrerade användare som har deras namn, jag undrar om man kan göra så att om det redan finns en mapp så skapas inte mappen och inget error meddelande kommer upp.

```
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
       

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'  Upload
'  ******
   mySmartUpload.Upload

dim skapamapp
skapamapp = mySmartUpload.Form("Username")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Skapa.CreateFolder(Server.MapPath("/profile/images/" & skapamapp))

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
    intCount = mySmartUpload.Save("/profile/images/" & skapamapp)
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")
```

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

## #2 — Vide, 2002-03-01T07:44Z

En vanlig check alltså?

```
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
       

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'  Upload
'  ******
   mySmartUpload.Upload

dim skapamapp
skapamapp = mySmartUpload.Form("Username")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")

if not ( Skapa.FolderExists( Server.MapPath("/profile/images/" & skapamapp) ) ) then

Set Mapp = Skapa.CreateFolder(Server.MapPath("/profile/images/" & skapamapp))

end if

'  Save the files with their original names in a virtual path of the web server
'   ************************************************************
****************
    intCount = mySmartUpload.Save("/profile/images/" & skapamapp)
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38755-the-if-sats-from-hell