Dynamically moving files

[TomBarrand]

I am currently using the code below to move file1 from one location to another location. The txt file is hard coded (file1.txt). I want it to be dynamic. fn is holding the name of each txt file. How do I change file1.txt to use the dynamic file stored in fn?

Sub ManipFiles
Dim fso, f1, fn
Set fso = CreateObject("Scripting.FileSystemObject&quot
fn = ework.Text1
Set f1 = fso.GetFile("c:\DPS Orders\New\file1.txt&quot
f1.Move ("c:\DPS Orders\In Progress\file1.txt&quot
End Sub

Thanks,

Tom

 

[link9]

Set f1 = fso.GetFile("c:\DPS Orders\New\" & fn)

AND

f1.Move ("c:\DPS Orders\In Progress\" & fn)


Paul Prewett

 

[TomBarrand]

Thanks Paul thats exactly what I wanted.