File_Sharing_MOD_2.51_28-8-2003.zip

File_Sharing_MOD_2.51_NOMOUSEOVER_28-8-2003.zip

'#######################################################
'    DO NOT EDIT PAST THIS PART
'#######################################################

if sharedFilesMode=2 then
 %><!--#INCLUDE FILE="inc_UploadFuncForum.asp" --><%
end if

'split allowedModeratorList to an array
if trim(allowedModeratorList)<>"" then
 allowedModeratorList=split(trim(allowedModeratorList),",")
end if
'#####################################################
'Change Current Path case 2nd mode and forumID exist
'#####################################################
if request("forumID")<>"" and sharedFilesMode=2 then
 physicalUploadFolder = physicalUploadFolder & "\" & request("forumID")
 physicalUploadTextFolder = physicalUploadTextFolder & "\" & request("forumID")
end if

'#################################################################
' change global link of membersFiles.asp according to mode
' NOTE: the "?d=d" doesnt do anything at all.BUT DONT REMOVE IT!
'#################################################################
if sharedFilesMode=1 then
 commonMemFilesURL = "membersFiles.asp?d=d"
elseif sharedFilesMode=2 then
 if request("forumID")<>"" then
  commonMemFilesURL = "membersFiles.asp?forumID=" & request("forumID")
 elseif request("catID")<>"" then
  commonMemFilesURL = "membersFiles.asp?d=d"
 else
  commonMemFilesURL = "membersFiles.asp?d=d"
 end if
end if

%>
<!--#INCLUDE FILE="inc_UploadFunc.asp" -->

disableUpload=false
disableDownload=false
disableAllFileSharing=false

quote:

---

Originally posted by Gizmo3

Thought this was the right forum

---

quote:

---

Originally posted by bsmither

quote:

---

Originally posted by ehoffman73

This is also happening to me...the member folders don't exist before they upload, does this not auto-create those folders for a member....can't manually make folders for thousands of members.

Thanks!

quote:

---

Originally posted by mortioli

Scripting error '800a0046' 
Permission denied 

/forum/membersfiles.asp, line 424

Would this be a problem with the server creating the folders?

How would I get round this

---

---

Running into the same problem.

What I've discovered, but have not yet implemented due to other problems, is that according to some, the CreateFolder method cannot make more than one folder at a time. That includes nesting.

So, here's some code I found:

Sub MkDeepDir(ByVal Path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists(fso.GetParentFolderName(Path)) Then
        MkDeepDir(fso.GetParentFolderName(Path))
End If
fso.CreateFolder(Path)
End Sub ' MkDeepDir 

It's recursive so that it finds the highest parent that exists, then adds children, one at a time, until the full path exists.

Problem is, one may need to add this to every occurance of CreateFolder throughout the forum code.

Anyway...

---