Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help
Very well could be putting this in the wrong forum but it's the only place I could think of that I could possibly get help. I need to rename a large selection of files in a directory. In particular I need to remove the first 3-4 characters of the current file name. For instance is the file name is 3410-Lime Light.cdg I need it to be Lime Light.cdg. Can I do this with VB or am I needing to really needing to look else where for a solution. Thank you, Michael -- Michael Wise ------------------------------------------------------------------------ Michael Wise's Profile: http://www.excelforum.com/member.php...fo&userid=6998 View this thread: http://www.excelforum.com/showthread...hreadid=518865 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help
Hi
one question. the number of removing characters is constant or vary with file names. in later case, what is the rule to define the number of removing characters? keizi "Michael Wise" wrote in message news:Michael.Wise.2442xa_1141419002.8968@excelforu m-nospam.com... Very well could be putting this in the wrong forum but it's the only place I could think of that I could possibly get help. I need to rename a large selection of files in a directory. In particular I need to remove the first 3-4 characters of the current file name. For instance is the file name is 3410-Lime Light.cdg I need it to be Lime Light.cdg. Can I do this with VB or am I needing to really needing to look else where for a solution. Thank you, Michael -- Michael Wise ---------------------------------------------------------------------- -- Michael Wise's Profile: http://www.excelforum.com/member.php...fo&userid=6998 View this thread: http://www.excelforum.com/showthread...hreadid=518865 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help
The characters are a constant. 5 characters at the begining of each file name. -- Michael Wise ------------------------------------------------------------------------ Michael Wise's Profile: http://www.excelforum.com/member.php...fo&userid=6998 View this thread: http://www.excelforum.com/showthread...hreadid=518865 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help
Then check if this one will work or not in your case.
run the macro, then select all files you want to rename. Sub renametest() Dim filename, flname Dim fs, f Const cutlen = 6 'number of removing char + 1 On Error GoTo ErrorCheck filename = Application.GetOpenFilename _ (FileFilter:="all file(*.*),*.*", MultiSelect:=True) If VarType(filename) = vbBoolean Then Exit Sub End If Application.ScreenUpdating = False Application.EnableEvents = False Set fs = CreateObject("Scripting.FileSystemObject") For Each flname In filename Set f = fs.GetFile(flname) flname = Mid(flname, _ InStrRev(flname, Application.PathSeparator) + 1) If InStr(flname, ".") cutlen Or _ (InStr(flname, ".") = 0 _ And Len(flname) cutlen - 1) Then f.Name = Mid(flname, cutlen) End If Next Application.StatusBar = False Application.EnableEvents = True Application.ScreenUpdating = True Exit Sub ErrorCheck: Application.StatusBar = False Application.EnableEvents = True Application.ScreenUpdating = True If Err.Number = 58 Then MsgBox "already same file name exist." Else MsgBox "error occured in the code." End If Resume Next End Sub keizi "Michael Wise" wrote in message news:Michael.Wise.2491uy_1141650906.7158@excelforu m-nospam.com... The characters are a constant. 5 characters at the begining of each file name. -- Michael Wise ---------------------------------------------------------------------- -- Michael Wise's Profile: http://www.excelforum.com/member.php...fo&userid=6998 View this thread: http://www.excelforum.com/showthread...hreadid=518865 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|