Jeg bruger nedenstående kode, men får:
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/randomize/start.asp, line 50
Mine andre sider virker fint nok og filerne der skal omdøbes er ikke
skrivebeskyttede.
Hvad gør jeg galt?
Mvh Thomas
-------------------------
<%
FUNCTION random(input_upperbound) 'genererer et tilfældigt x-cifret tal
mellem 0 og input_upperbound
dim charvar, number
Randomize
IF input_upperbound > 0 THEN
number = INT((input_upperbound+1) * Rnd)
END IF
charvar = len(number)
FOR i = charvar TO len(input_upperbound)-1
random = random & "0"
NEXT
random = random & number
END FUNCTION
%>
<html>
<head>
</head>
<body>
<p>Start på renaming med randomize funktion
<%
'Create the FileSystemObject object
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Obtain an folder object instance for a particular directory
Dim objFolder
sti = Server.MapPath(".") & "\files"
Set objFolder = objFSO.GetFolder(sti)
'Use a For Each ... Next loop to display the files
Dim objFile
antalfiler = objFolder.Files.count
For Each objFile in objFolder.Files
fra = sti & "\" & objFile.Name
til = sti & "\" & random(antalfiler) & objFile.Name
objFSO.MoveFile fra,til
Next
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
<p>Slut på renaming med randomize funktion
</body>
</html>