Hejsan.
Jag har gett mig på att skapa ett filadministreringssystem men har stött på följande irriterande bugg.
Om foldern innehåller många filer hinner inte all data kopieras till den nya destinationen innan servern vill ta bort den gamla foldern. Detta skapar rättighetskonflikter och fildelningsproblem. Hur löser jag lämpligen detta? Förslag?
'---Sökväg
path = Server.MapPath("..\accounts") & "\"
'---Skapar serverobjekt
Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
'---Kollar om filen finns.
If FileSys.FolderExists(path & accountfolder) And Not accountfolder = new_accountfolder Then
'---Kopierar samtliga foldrar, false = får ej skriva över
FileSys.CopyFolder path & accountfolder, path & new_accountfolder, false
'---Kollar att foldern skapats
If FileSys.FolderExists(path & new_accountfolder) Then
FileSys.DeleteFolder path & accountfolder
Else
Response.Write "<SCRIPT>alert(""Det har uppstått ett fel.\nFoldern tillhörande " & companyname & " med namnet " & accountfolder & " \nkunde inte byta namn till " & new_accountfolder & ".\nFoldernamnet är upptaget."");history.back();</SCRIPT>"
all_ok = False
End If
ElseIf Not FileSys.FolderExists(path & accountfolder) Then
Response.Write "<SCRIPT>alert(""Det har uppstått ett fel.\nFoldern tillhörande " & companyname & " med namnet " & accountfolder & " finns inte.\nDärför kunder foldern inte uppdateras."");history.back();</SCRIPT>"
all_ok = False
'ElseIf accountfolder = new_accountfolder Then
'Om den uppdaterade foldern heter likadant skall inget ske.
End If
------------------
To understand recursion, we must first understand recursion.