Renaming Non-Excel Files

[QTGlennM]

I am trying to figure out if I can rename non-excel files with excel.
I have a sheet with my file names in column A

G:\New Folder\Blank DA 1594.FPK
G:\New Folder\DA 1594 Example.pdf

and in column B I have the new names that I want to change them to.

G:\New Folder\Blank DA 1594 27 July 06.FPK
G:\New Folder\DA 1594 27 July 06.pdf

If anyone can help I would greatly appreciate it!!!!
Thanks in advance.

Glenn

[Die_Another_Day]

Sub MoveFile()
Dim fso
Dim file As String, sfol As String, dfol As String, destFile
file = "Test.txt" ' change to match the file name
destFile = "TestMe.txt"
sfol = "C:\" ' change to match the source folder path
dfol = "C:\" ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
MsgBox sfol & file & " does not exist!", vbExclamation, "Source
File Missing"
ElseIf Not fso.FileExists(dfol & file) Then
fso.MoveFile (sfol & file), dfol & destFile
Else
MsgBox dfol & file & " already exists!", vbExclamation,
"Destination File Exists"
End If
End Sub

HTH

Die_Another_Day
QTGlennM wrote:
> I am trying to figure out if I can rename non-excel files with excel.
> I have a sheet with my file names in column A
>
> G:\New Folder\Blank DA 1594.FPK
> G:\New Folder\DA 1594 Example.pdf
>
> and in column B I have the new names that I want to change them to.
>
> G:\New Folder\Blank DA 1594 27 July 06.FPK
> G:\New Folder\DA 1594 27 July 06.pdf
>
> If anyone can help I would greatly appreciate it!!!!
> Thanks in advance.
>
> Glenn

[Ron de Bruin]

You can also use the VBA Name function

Name "C:\SourceFolder\Test.xls" As "C:\DestFolder\TestNew.xls"


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Die_Another_Day" <[email protected]> wrote in message news:[email protected]...
> Sub MoveFile()
> Dim fso
> Dim file As String, sfol As String, dfol As String, destFile
> file = "Test.txt" ' change to match the file name
> destFile = "TestMe.txt"
> sfol = "C:\" ' change to match the source folder path
> dfol = "C:\" ' change to match the destination folder path
> Set fso = CreateObject("Scripting.FileSystemObject")
> If Not fso.FileExists(sfol & file) Then
> MsgBox sfol & file & " does not exist!", vbExclamation, "Source
> File Missing"
> ElseIf Not fso.FileExists(dfol & file) Then
> fso.MoveFile (sfol & file), dfol & destFile
> Else
> MsgBox dfol & file & " already exists!", vbExclamation,
> "Destination File Exists"
> End If
> End Sub
>
> HTH
>
> Die_Another_Day
> QTGlennM wrote:
>> I am trying to figure out if I can rename non-excel files with excel.
>> I have a sheet with my file names in column A
>>
>> G:\New Folder\Blank DA 1594.FPK
>> G:\New Folder\DA 1594 Example.pdf
>>
>> and in column B I have the new names that I want to change them to.
>>
>> G:\New Folder\Blank DA 1594 27 July 06.FPK
>> G:\New Folder\DA 1594 27 July 06.pdf
>>
>> If anyone can help I would greatly appreciate it!!!!
>> Thanks in advance.
>>
>> Glenn
>