Sorry for the poor thread title.
Think I may of possibly found a small bug, as I can get it consistently to happen here.
Go Settings>File Types
I have been using "All files and folders"
Select "Context Menu"
Click "New..."
Choose "Run as opus function (not supported in explorer)"
Paste the following code (Will probably work with other code too, but this works consistently for me)
[code]RENAME FROM="" TO=""
@nodeselect
@script vbscript
Option Explicit
' Unique Number rename script by Leo Davidson (20th Aug 2007) modified by Jonathan Potter
Dim StartingNumber
Dim PadTo
' First number to try. Usually 1.
StartingNumber = 1
' Number of digits to pad the number to. For example, if PadTo
' is 3 then the script will generate 001, 002, 003, 004, etc..
PadTo = 3
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Function Rename_GetNewName(strFileName, strFilePath, fIsFolder, strOldName, ByRef strNewName)
End Function[/code]
Click OK
Double Click on the menu item ("New Action" if you didnt name it), to verify the code is still there 100% as pasted
OK
OK
(Should now be back at the "File Types" dialog)
Double click "All files and folders"
Select "Context Menu"
Double click "New Action"
Now... for me, the last line, instead of saying "End Function" is saying "End Functi" - this happens consistently. I have had it (I think depending on how much code is there) remove a complete line from the bottom.
Can anyone verify this as a problem, or is it limited to me?