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\")
' 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\")
259 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25