' DublicateFile.vbs
'========================   Описание   =====================================
' Создание дубликата файла в той же папке и его открытие с добавлением счетчика _N
'
' Call("Scripts::Main", 1, "DublicateFile.vbs")
' предлагаемая горячая клавиша Alt + F5

' Автор:           Аверин Андрей
' Версия:          1.3 (22.11.2010 - 01.05.2012)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-354-1087-16-1333507842
' Site:            http://akelpad.sourceforge.net/forum/viewtopic.php?p=11259#11259
'===========================================================================
File = AkelPad.GetEditFile(0)
If AkelPad.GetEditWnd() = 0 Or Len(File) = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
  Path  = .GetParentFolderName(File) & "\"
  Name = .GetBaseName(File)
  Ext = "." & .GetExtensionName(File)
  FPath = Path  & Name & Ext
  Do While .FileExists(FPath)
      i = i + 1 : FPath = Path & Name & "_" & (i Mod 10) & Ext
  Loop
  If .FileExists(File) Then .CopyFile File, FPath
  AkelPad.OpenFile(FPath)
End With