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