Problem with FileMove()

[YuChan]

Hello,

I want select one file and rename

I have this code :

Global $inputNomTrajet = InputBox("Confirmation", "Entréz le nom du nouveau Trajet", "")

Global $sMessage = "Select one .txt file"
Global $sFileOpenDialog = FileOpenDialog($sMessage, @ScriptDir & "\", "Text files (*.txt)|Ini Files (*.ini)", $FD_FILEMUSTEXIST)
                        
$fileName = StringSplit ($sFileOpenDialog ,"\" )
$extention = StringSplit ($fileArrayValue [$fileArrayValue[0]],".")

$oldFileName = $fileArrayValue [$fileArrayValue[0]]
$newFileName = $inputNomTrajet & "." & $ext[$ext[0]]

FileMove($oldFileName, $newFileName, 9)

My problem is if it default folder it work but not work with other folder.

Can you help me please ?

Edited January 15, 2021 by YuChan

[Jos]

Use the full path to the file in stead of only the filename.

[rudi]

Hi.

 

The script you posted even can't be run.

 

In general, when a filemove doesn't work, usually either the file is opened (locked by some application), or you need NTFS rights either in the source folder and / or in the destination folder.

 

CU, Rudi.

 

[YuChan]

THX

How to have second path file for :

$newFileName

Edited January 15, 2021 by YuChan

[rudi]

Pls. have a look into the help file example for the function _PathSplit()

[YuChan]

Yes i have already search, but i don't know how to use.

I have this in Google :

Func _FileRename($file, $newname)
    Local $szDrive, $szDir, $szFName, $szExt
     _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
     Return FileMove($file, $szDrive & $szDir & $newname)
EndFunc

 

[rudi]

Hi.

#include <File.au3>
#include <Debug.au3>

;FPFN = Full Path File Name with Ext.

$FPFN="C:\temp\sub1\sub2\MySampleFile.txt"

$NewFileName="NewFileName"

Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
Enum $iFPFN,$iDrive,$iDir,$iFN,$iExt
Local $aPathSplit = _PathSplit($FPFN, $sDrive, $sDir, $sFileName, $sExtension)

_DebugArrayDisplay($aPathSplit)

$aPathSplit[$iFN]=$NewFileName
_DebugArrayDisplay($aPathSplit)


; or using RegExReplace

$RegEx='(?i)(^.*\\)(.*?)(\.[^\.]*$)'
; (^.*\\) = get everything up to the final occurence of "\"
; (.*?) = get all what remains to be grabbed, when the next one ...
; (\.[^\.]*$) = grab everything to the end of string, starting with the last occurence of "."

$RgExRepl="$1" & $NewFileName & "$3"

$NewFPFN=StringRegExpReplace($FPFN,$RegEx,$RgExRepl)
MsgBox(0, '', $NewFPFN)

 

Edited January 15, 2021 by rudi

[YuChan]

THX all, problem solved

[Melba23]

YuChan,

I sent you a PM yesterday - please read it.

M23