webForumDet fria alternativet

The IF sats from hell

ASP

1 svar · 205 visningar · startad av His Divine Shadow

Medlem sedan sep. 20004 079 inlägg
Frågan#1

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\")
Medlem sedan dec. 19998 577 inlägg
#2

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\")
260 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)