rename all files in a folder removing first 10 characters of name

[chas1]

Hi I need code to rename all word doc files in a folder. I require to remove the first 10characters from the file name for the new filename.
Can anyone help me on this. (I am currently doing it via the command prompt to list all files and then generating the new filename through excel and putting the new list of names back into the command prompt to rename file.) I'm guessing this could be done more neatly through VBA code.Thanks in advance.

 

[Domenic]

To prompt the user to select a folder, try replacing...

Folder = "C:\Documents and Settings\oregac1\Desktop\test dhr\test\"

with

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Folder Selection"
        .InitialFileName = Application.DefaultFilePath & Application.PathSeparator
        .Show
        If .SelectedItems.Count > 0 Then
            Folder = .SelectedItems(1)
        Else
            MsgBox "Canceled!"
            Exit Sub
        End If
    End With
    
    Folder = Folder & Application.PathSeparator

By the way which code are you using? The first one or the second one?

 

[chas1]

Hi Domenic,
i am using the last code you sent on the first one isn't doing anything at all strange how it worked once though for me.
i tried adding the code you forwarded for folder seleciton but got an error "method or data memebr not found" on below line

 .InitialFileName = Application.DefaultFilePath & Application.PathSeparator

the code i am using is

Option Explicit
Sub FileRenameLess10Charsrev2()
    Dim FileSys As Object
    Dim Files As Object
    Dim File As Object
    Dim Folder As String
 
    'enter the path to your folder between the quotation marks below
    'Folder = "C:\Documents and Settings\oregac1\Desktop\test dhr\test\"
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Folder Selection"
        .InitialFileName = Application.DefaultFilePath & Application.PathSeparator
        .Show
        If .SelectedItems.Count > 0 Then
            Folder = .SelectedItems(1)
        Else
            MsgBox "Canceled!"
            Exit Sub
        End If
    End With
 
    Folder = Folder & Application.PathSeparator
 
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set Files = FileSys.GetFolder(Folder).Files
 
    For Each File In Files
        If InStr(1, File, ".doc") > 0 Then
            Name File As Folder & Mid(File.Name, 11)
        End If
    Next File
 
End Sub

 

[Domenic]

i am using the last code you sent...

Good...

i tried adding the code you forwarded for folder seleciton but got an error "method or data memebr not found" on below line

 .InitialFileName = Application.DefaultFilePath & Application.PathSeparator

I tested the code and it seems to work fine. InitialFileName is definitely a member of the FileDialog object. So make sure that you don't have some sort of spelling mistake on your actual code.

 

[chas1]

hi domenic,
code is as exactly as i have pasted here. does mainly what i want so thanks for your help.

rgds
Chas