Is it possible to rename directory based on file name?

[ripcord]

Hi,

I am new to AutoIt. I want to do the following. 

- I have (movie) folders which looks like this:

The Lion King\The Lion King (1994).avi
10 Cloverfield Lane\10 Cloverfield Lane (2016).mkv
..

- What I want to do is take the file name Ex: 10 Cloverfield Lane (2016).mkv and rename the folder as 10 Cloverfield Lane (2016)

 

Is this possible? Reason I am asking is I have lot of folders and it is really time consuming.

Thank you.

[KickStarter15]

@ripcord,

Welcome to AutoIt forum.

Yes by doing the below.

Actually there are lots of function that can do what you need.

By getting the file name, you can easily create folder by doing below:

DirCreate($sFilePath & "\" & $sFileName)

This one will get the filename as well (see help file):

#include <File.au3>

Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""

$Path = @ScriptDir & "\10 Cloverfield Lane (2016).mkv"

_PathSplit($Path, $sDrive, $sDir, $sFileName, $sExtension)
MsgBox(0,"",$sFileName)

There are lots of ways to do what you want.

Edited March 23, 2018 by KickStarter15

[Subz]

Here is a function based upon KickStarter15 code to also rename the folder using the filename minus the extension:

#include <Array.au3>
#include <File.au3>

Global $aFilePath = _FileListToArrayRec(@ScriptDir, "*.*", 1, 0, 0, 2)
    If @error Then Exit MsgBox(16, "Error", "No files found")

For $i = 1 To $aFilePath[0]
    _FolderRename($aFilePath[$i])
Next

Func _FolderRename($_sFileName)
    Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
    Local $aPathSplit = _PathSplit($_sFileName, $sDrive, $sDir, $sFileName, $sExtension)
    ;~ Remove Beginning and End BackSlash "\" from $sDir
    Local $sSourceDir = $sDrive & StringTrimRight($sDir, 1)
    Local $sTargetDir = StringTrimRight($sSourceDir, StringInStr($sSourceDir, "\", 0, -1) - 1) & $sFileName
    MsgBox(32, "Path Rename", "Rename: " & @CRLF & $sSourceDir & @CRLF & "To: " & @CRLF & $sTargetDir)
    ;~ Uncomment function below rename the folder
;~  DirMove($sSourceDir, $sTargetDir, 1)
EndFunc

 

[ripcord]

Thanks guys. I will explore more on this. Cheers.

[ripcord]

12 hours ago, Subz said:

Here is a function based upon KickStarter15 code to also rename the folder using the filename minus the extension:

#include <Array.au3>
#include <File.au3>

Global $aFilePath = _FileListToArrayRec(@ScriptDir, "*.*", 1, 0, 0, 2)
    If @error Then Exit MsgBox(16, "Error", "No files found")

For $i = 1 To $aFilePath[0]
    _FolderRename($aFilePath[$i])
Next

Func _FolderRename($_sFileName)
    Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
    Local $aPathSplit = _PathSplit($_sFileName, $sDrive, $sDir, $sFileName, $sExtension)
    ;~ Remove Beginning and End BackSlash "\" from $sDir
    Local $sSourceDir = $sDrive & StringTrimRight($sDir, 1)
    Local $sTargetDir = StringTrimRight($sSourceDir, StringInStr($sSourceDir, "\", 0, -1) - 1) & $sFileName
    MsgBox(32, "Path Rename", "Rename: " & @CRLF & $sSourceDir & @CRLF & "To: " & @CRLF & $sTargetDir)
    ;~ Uncomment function below rename the folder
;~  DirMove($sSourceDir, $sTargetDir, 1)
EndFunc

 

instead of @ScriptDir how can Provide the root of my folder which contains the subfolders ?

[Subz]

Just change @ScriptDir to whatever you like, for example: "C:\Data"

[ripcord]

10 minutes ago, Subz said:

Just change @ScriptDir to whatever you like, for example: "C:\Data"

Thanks. Worked. Guesss I need to work on this script a bit as this is moving files to different location instead of reanme

[Subz]

Actually AutoIt doesn't have a rename function so you use DirMove to rename the folder, if you look at the help file it mentions this in the remarks section.

[ripcord]

8 hours ago, Subz said:

Actually AutoIt doesn't have a rename function so you use DirMove to rename the folder, if you look at the help file it mentions this in the remarks section.

Thank you. This really helps. Cheers.