B
Bythsx-Addagio
Hello,
I am trying to think of a way that I could loop through a range of defined
variables. Perhaps I am approaching this the wrong way so any suggestions
would be greatly appreciated. Basically what I am trying to do is shown
below.
Thanks in advance!
'****
Dim SourceFile As String, SourcePath As String, sFile As String
Dim DestFile As String, DestPath As String, dFile As String
Dim r As Long
SourcePath = "I:\"
DestPath = "C:\"
fname1 = "RS_2626(Z)_1YR.pdf"
fname2 = "RS_2626(Z)_2YR.pdf"
fname3 = "RS_2626(Z)_3YR.pdf"
fname4 = "RS_2626(Z)_4YR.pdf"
fname5 = "RS_4501(Z)_1YR.pdf"
fname6 = "RS_4501(Z)_2YR.pdf"
fname7 = "RS_4501(Z)_3YR.pdf"
'****Loop file names to File Var
For r = 1 To 7 Step 1
sFile = fname & r
'*****Copy File **********
SourceFile = SourcePath & sFile
DestFile = DestPath & sFile
FileCopy SourceFile, DestFile
'****End Copy *********
Next r
I am trying to think of a way that I could loop through a range of defined
variables. Perhaps I am approaching this the wrong way so any suggestions
would be greatly appreciated. Basically what I am trying to do is shown
below.
Thanks in advance!
'****
Dim SourceFile As String, SourcePath As String, sFile As String
Dim DestFile As String, DestPath As String, dFile As String
Dim r As Long
SourcePath = "I:\"
DestPath = "C:\"
fname1 = "RS_2626(Z)_1YR.pdf"
fname2 = "RS_2626(Z)_2YR.pdf"
fname3 = "RS_2626(Z)_3YR.pdf"
fname4 = "RS_2626(Z)_4YR.pdf"
fname5 = "RS_4501(Z)_1YR.pdf"
fname6 = "RS_4501(Z)_2YR.pdf"
fname7 = "RS_4501(Z)_3YR.pdf"
'****Loop file names to File Var
For r = 1 To 7 Step 1
sFile = fname & r
'*****Copy File **********
SourceFile = SourcePath & sFile
DestFile = DestPath & sFile
FileCopy SourceFile, DestFile
'****End Copy *********
Next r