2 svar · 180 visningar · startad av Inferis
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... :-)
------------------
Who is General Failure and why is he reading Drive C?
Okänd
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
------------------
essentitia preter non sans multiplicandum
Det där funkade kanon!
Tack!
------------------
Who is General Failure and why is he reading Drive C?
Okänd