[SOLVED] Create file with Unique filename If that file exists

[Colduction]

Hi guys! i want to write speedy and very fast code to check if chosen filename exists then add "-1" at end of it and if chosen filename exists again, add "-2" instead of "-1" and check filename until be unique.
 

• For Example: I have to write "Filename.txt" in C:\ directory with

FileOpen

then check if "Filename.txt" exists in that directory then rename chosen filename to "Filename-2.txt" and if exists again in directory, rename chosen filename to "Filename-3.txt" and do this work until to find unique number to add end of filename.




 

====================== SOLUTION by @Subz ======================

 

Edited May 20, 2020 by Colduction

[Danp2]

What have you tried? Seems like this has been previously discussed on the forum. Use the forum search function (or better yet just Google it) to find some examples.

[Colduction]

2 hours ago, Danp2 said:

previously discussed on the forum

Some threads was similar but they were not what i want

[Nine]

And in what way they were not waht you want ?  Give a code example of what is not working and then we shall see if we can give you help...

[argumentum]

Local $sPathLeft, $sExt, $sPath = "C:\full path.ext"
    If FileExists($sPath) Then
        $sPathLeft = StringLeft($sPath, StringInStr($sPath, ".", 0, -1))
        $sExt = StringTrimLeft($sPath, StringLen($sPathLeft))
        $sPath = $sPathLeft & "_" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC & "_." & $sExt
    EndIf

 

[argumentum]

<duplicated entry>

Edited February 27, 2020 by argumentum

[Subz]

Or maybe something like:

#include <File.au3>

ConsoleWrite(_UniqueFileName(@ScriptDir & "\Filename.txt") & @CRLF)

Func _UniqueFileName($_sFilePath)
    If FileExists($_sFilePath) = 0 Then Return $_sFilePath
    Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
    Local $aPathSplit = _PathSplit($_sFilePath, $sDrive, $sDir, $sFileName, $sExtension)
    Local $i = 1
    While 1
        $_sFilePath = $sDrive & $sDir & $sFileName & "-" & $i & $sExtension
        If FileExists($_sFilePath) = 0 Then Return $_sFilePath
        $i += 1
    WEnd
EndFunc

 

[Colduction]

3 hours ago, Nine said:

And in what way they were not waht you want ?  Give a code example of what is not working and then we shall see if we can give you help...

Hi @Nine, i didn't write useful code, all i know and i think about this, can be used Loop for check existing a file 😁

[Colduction]

3 hours ago, argumentum said:

Local $sPathLeft, $sExt, $sPath = "C:\full path.ext"
    If FileExists($sPath) Then
        $sPathLeft = StringLeft($sPath, StringInStr($sPath, ".", 0, -1))
        $sExt = StringTrimLeft($sPath, StringLen($sPathLeft))
        $sPath = $sPathLeft & "_" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC & "_." & $sExt
    EndIf

 

Thanks for your code, but it wasn't what i want

Totally thanks for your care.

[Colduction]

1 hour ago, Subz said:

Or maybe something like:

#include <File.au3>

ConsoleWrite(_UniqueFileName(@ScriptDir & "\Filename.txt") & @CRLF)

Func _UniqueFileName($_sFilePath)
    If FileExists($_sFilePath) = 0 Then Return $_sFilePath
    Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
    Local $aPathSplit = _PathSplit($_sFilePath, $sDrive, $sDir, $sFileName, $sExtension)
    Local $i = 1
    While 1
        $_sFilePath = $sDrive & $sDir & $sFileName & "-" & $i & $sExtension
        If FileExists($_sFilePath) = 0 Then Return $_sFilePath
        $i += 1
    WEnd
EndFunc

 

Thanks @Subz, it's what i want, it checks until get unique file name❤

I wrote similar to your code but i had a problem with determining address in Wile...WEnd loop.

Thanks for your code (like a fish) :)❤

[Colduction]

3 hours ago, argumentum said:

<duplicated entry>

Which thread was same as this thread? show me (Please)

[argumentum]

55 minutes ago, Ho3ein said:

Which thread was same

none. My internet is messed up and created a double entry 

[Colduction]

10 hours ago, argumentum said:

My internet is messed up

I'm really sorry, i thought badly about you

Excuse me sir :)❤