asked on

ASP - File Rename when uploading files. (Pure ASP Upload)

OK.
I am using the script from:
http://www.motobit.com/help/scptutl/pure-asp-upload.htm
Downloaded the version from here:
http://www.motobit.com/dlldownload/ScptUtl.exe (This will work on Winxp Pro IIS 5.1)

OK.
What I am needing assistance on, is the File Renaming Function.
It will rename a file like so.
Existing File Name: something else to do.jpg
New File Name: something else to do-1.jpg

OK, what I am needing is for it to rename the file to something like this:
Existing File Name: something else to do.jpg
New File Name: something-else-to-do.jpg
If both exist then: something-else-to-do-1.jpg exc.... -2,-3,-4 and on and on for renaming.

This is the code that is being used for what I can gather.
Can anyone help out with this one?
Or suggest another renaming routine that will work just as well.
And this is very important, it must work cross platform.. This is very important.

As I am going to have to dump my old Uploading script as it will not work past IE6.
IE7 and above are dead to www.dmxzone.com Upload script. (Old Version dead, and the new version is having major problems)

This script that I am using now, works on everything that I have tested it with.

Thanks to all.
This is very important.
I do not have many points, but will award what I can to who came give me a working example.
(or) Pointing to a working example. (or) can fix this one for me.

I am going to research and see what I can find on my end.

Thanks
Carrzkiss

Function GetUniqueFileName(FileName, DestPath)
  if isempty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")
  Dim DotPos: DotPos = InStrRev(FileName,".")
  if DotPos = 0 then DotPos = len(FileName)+1
  Dim Counter, FullPath, NewFileName
  Counter = 1
  NewFileName = FileName
  if gFS.FileExists(DestPath & "\" & NewFileName) then
    Do
      Counter = Counter + 1
      NewFileName = Left(FileName, DotPos-1) & "-" & Counter _
        & Mid(FileName, DotPos)
    Loop while gFS.FileExists(DestPath & "\" & NewFileName)
  end if
  GetUniqueFileName = NewFileName
End Function

Open in new window

R_Harrison

This should work for you. No sure what value you where using for the DestPath, however this assumes the path starts from the root directory. So to check in www.mydomain.com\pictures folder the value for DestPath would simply be "\pictures"

<%
Function GetUniqueFileName(FileName, DestPath)
	physicalpath=Server.MapPath(DestPath) & "\"
	Dim fs, f, f1, s, sf 
	Set fs = CreateObject("Scripting.FileSystemObject") 
	Set f = fs.GetFolder(physicalpath) 
	Set sf = f.SubFolders
	ReDim A_FileNames(0)	
	Set sf = f.files
	i=0
	For Each f1 in sf
		Redim Preserve A_FileNames(i)
		A_FileNames(i)=lcase(f1.name)
		i=i+1
	Next 
	FileName=lcase(Replace(FileName, " ", "-"))
	Rename="No"
	For x=0 to i-1
		If FileName=A_FileNames(x) Then Rename="Yes"
	Next
	If Rename="No" Then
		GetUniqueFileName=FileName
	Else
		ThisFile=Left(FileName, InstrRev(FileName, ".")-1)
		FileExtension=Right(FileName, Len(FileName)-InstrRev(FileName, ".")+1)
		Number=1
		Unique=false
		Do Until Unique
			Rename="No"
			For x=0 to i-1
				GetUniqueFileName=ThisFile & "-" & Number & FileExtension
				If GetUniqueFileName=A_FileNames(x) Then Rename="Yes"
			Next
			If Rename="No" Then
				Unique=True
			Else
				Number=Number+1
			End IF
		Loop
	End IF
End function
%>