Behöver lite hjälp med upload.

2 svar · 191 visningar · startad av Inferis 13 dec. 2001

InferisMedlem sedan sep. 2000667 inlägg

Trådstart13 dec. 2001 05:01#1

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... :-)

LarsGMedlem sedan dec. 200012 464 inlägg

13 dec. 2001 09:14#2

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

InferisMedlem sedan sep. 2000667 inlägg

13 dec. 2001 22:23#3

Det där funkade kanon!

Tack!