auto increment file extention

[Zithen]

making a script that will be a file when ran, but i dont want it to overwite the existing file if it finds it. would like to have it name .000 then increment if it already exists too. how can i go about doing this?

[w0uter]

use something like

$variable = 0

while 1

if fileexists( "string" & $variable) then $variable += 1

$name = "string" & $variable

wend

[Zithen]

heh...looking at that and thinking about it, i feel dumb...its so easy its gotta work

use something like

$variable = 0

while 1

if fileexists( "string" & $variable) then $variable += 1

$name = "string" & $variable

wend

[Jos]

$variable = 0
while fileexists( "Filename." & StringFormat("%03i",$variable))
    $variable = $variable + 1
wend
$Filename = "Filename." & StringFormat("%03i",$variable)

[Valuater]

or maybe this

expandcollapse popup

#include <GUIConstants.au3>
Dim $location
 

; opens a new file every time script is ran
; or New File button is pressed
New_file()


GUICreate("GUICtrlCreateDummy",450,100, 100,200)


$user = GUICtrlCreateDummy()
$button = GUICtrlCreateButton ("New File",40,70,70,20)
$cancel = GUICtrlCreateButton ("Cancel",150,70,70,20)
$notice = GUICtrlCreateLabel($location, 20, 20, 400, 20, $SS_SUNKEN)
GUISetState()

Do
  $msg = GUIGetMsg ()
     
   Select
   Case $msg = $button
        New_file()
        MsgBox(0,"new file name", $location & "   " )
        GUICtrlSetData($notice, $location)
      Case $msg = $cancel
        exit
      Case $msg = $user
        ; special action before closing
        ; ...
         exit
   EndSelect
Until $msg = $GUI_EVENT_CLOSE

;---------------------------  Start - Functions ------------------------------------------

Func New_file()
    For $x = 1 to 1000
    If Not FileExists(@ScriptDir & "\test"& $x & ".txt" ) Then
        FileWrite(@ScriptDir & "\test"& $x & ".txt", "File Started " & @MDAY & "-" & @MON & "-" & @YEAR )
        $location = @ScriptDir & "\test"& $x & ".txt"
        ExitLoop
    EndIf
Next
EndFunc

8)