---
title: "Behöver lite hjälp med upload."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13177-behöver-lite-hjälp-med-upload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Inferis"
published: "2001-12-13T05:01:00.000Z"
updated: "2001-12-13T22:23:00.000Z"
replies: 2
views: 191
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/13177-behöver-lite-hjälp-med-upload"
---

# Behöver lite hjälp med upload.

## #1 — Inferis, 2001-12-13T05:01Z

Hittade ett upload script. Funkar jättebra så länge det inte finns en fil med samma namn. Då får man ett fult felmeddelande.

Hur kan man ändra följande kod så att man kan skriva ett eget felmeddelande om att det redan finns en fil med det namnet?

```

        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.CreateTextFile(strFileSpec, False)
        For i = intStartPos To intEndPos - 1
            ts.Write(Chr(AscB(MidB(bstrPostData, i, 1))))
        Next
        ts.Close
```

Som vanligt har killen som skrev brevet varit framme i sökmotorn... :-)

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

## #2 — LarsG, 2001-12-13T09:14Z

```
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(strFileSpec)) Then
msg = strFileSpec & " exists."
Else
Set ts = fs.CreateTextFile(strFileSpec, False)
For i = intStartPos To intEndPos - 1
ts.Write(Chr(AscB(MidB(bstrPostData, i, 1))))
Next
ts.Close
End If
```

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

## #3 — Inferis, 2001-12-13T22:23Z

Det där funkade kanon! 

Tack!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13177-behöver-lite-hjälp-med-upload