I would like to cascade down through my worksheet from top to the end and 
process the data as follows.  In column A I have a filename, I will have a 
constant source folder identified (ie. c:\input) and target folder identified 
(ie. c:\output).

Column A
test1.txt
test2.txt
test3.txt

I would like to verify the file actually exists and IF it does then move it 
to the destination folder and delete the file.  If the file does NOT exist 
then possibly highlight that cell so it can be removed from the worksheet.

I had a function that checks the file but all UDF are no longer working.  I 
use Excel 2007.  Any help would be appreciated.

Try this

Public Sub MoveFiles(ByVal Source As String, ByVal Destination As String)
  Dim oFSO As Object

  
  Set oFSO = CreateObject("Scripting.FileSystemObject")

  With oFSO
    If .FileExists(Source) Then
      .MoveFile Source, Destination
    Else
      MsgBox Source & " Doesn't Exist", vbExclamation
    End If
  End With
Set oFSO = Nothing
End Sub

Sub RunThroughList()
  Dim I As Long
  Dim Destination As String
  Dim Lastrow As Long
  
  Lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
  
  For I = 1 To Lastrow
    MoveFiles Range("A" & I).Value, "C:\Documents and Settings\My Documents\"
    
  Next
End Sub




"Rookie_User" wrote:

> I would like to cascade down through my worksheet from top to the end and 
> process the data as follows.  In column A I have a filename, I will have a 
> constant source folder identified (ie. c:\input) and target folder identified 
> (ie. c:\output).
> 
> Column A
> test1.txt
> test2.txt
> test3.txt
> 
> I would like to verify the file actually exists and IF it does then move it 
> to the destination folder and delete the file.  If the file does NOT exist 
> then possibly highlight that cell so it can be removed from the worksheet.
> 
> I had a function that checks the file but all UDF are no longer working.  I 
> use Excel 2007.  Any help would be appreciated.

Does this automatically assume a default source folder?  Because the file 
does exist and it keeps going past the move part.  The filename is in column 
A, and I wasn't sure where to put the source folder value, not unlike how you 
have the destination folder set?

Currently it keeps saying the file doesn't exist, when it does.  
Additionally I am a little confused when using the ofs type stuff, but thank 
you for your time and effort.  I am close but not quite there.

"Jeff" wrote:

> Try this
> 
> Public Sub MoveFiles(ByVal Source As String, ByVal Destination As String)
>   Dim oFSO As Object
> 
>   
>   Set oFSO = CreateObject("Scripting.FileSystemObject")
> 
>   With oFSO
>     If .FileExists(Source) Then
>       .MoveFile Source, Destination
>     Else
>       MsgBox Source & " Doesn't Exist", vbExclamation
>     End If
>   End With
> Set oFSO = Nothing
> End Sub
> 
> Sub RunThroughList()
>   Dim I As Long
>   Dim Destination As String
>   Dim Lastrow As Long
>   
>   Lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
>   
>   For I = 1 To Lastrow
>     MoveFiles Range("A" & I).Value, "C:\Documents and Settings\My Documents\"
>     
>   Next
> End Sub
> 
> 
> 
> 
> "Rookie_User" wrote:
> 
> > I would like to cascade down through my worksheet from top to the end and 
> > process the data as follows.  In column A I have a filename, I will have a 
> > constant source folder identified (ie. c:\input) and target folder identified 
> > (ie. c:\output).
> > 
> > Column A
> > test1.txt
> > test2.txt
> > test3.txt
> > 
> > I would like to verify the file actually exists and IF it does then move it 
> > to the destination folder and delete the file.  If the file does NOT exist 
> > then possibly highlight that cell so it can be removed from the worksheet.
> > 
> > I had a function that checks the file but all UDF are no longer working.  I 
> > use Excel 2007.  Any help would be appreciated.

I inserted the full path in column A and was getting it closer but it errors 
by saying a file already exists when it attempts the move?  I put watches on 
the values and the destination is accurate and the file does not exist there, 
any idea's?

"Jeff" wrote:

> Try this
> 
> Public Sub MoveFiles(ByVal Source As String, ByVal Destination As String)
>   Dim oFSO As Object
> 
>   
>   Set oFSO = CreateObject("Scripting.FileSystemObject")
> 
>   With oFSO
>     If .FileExists(Source) Then
>       .MoveFile Source, Destination
>     Else
>       MsgBox Source & " Doesn't Exist", vbExclamation
>     End If
>   End With
> Set oFSO = Nothing
> End Sub
> 
> Sub RunThroughList()
>   Dim I As Long
>   Dim Destination As String
>   Dim Lastrow As Long
>   
>   Lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
>   
>   For I = 1 To Lastrow
>     MoveFiles Range("A" & I).Value, "C:\Documents and Settings\My Documents\"
>     
>   Next
> End Sub
> 
> 
> 
> 
> "Rookie_User" wrote:
> 
> > I would like to cascade down through my worksheet from top to the end and 
> > process the data as follows.  In column A I have a filename, I will have a 
> > constant source folder identified (ie. c:\input) and target folder identified 
> > (ie. c:\output).
> > 
> > Column A
> > test1.txt
> > test2.txt
> > test3.txt
> > 
> > I would like to verify the file actually exists and IF it does then move it 
> > to the destination folder and delete the file.  If the file does NOT exist 
> > then possibly highlight that cell so it can be removed from the worksheet.
> > 
> > I had a function that checks the file but all UDF are no longer working.  I 
> > use Excel 2007.  Any help would be appreciated.

Your original code worked above but I had to put in the full path in column A 
and also when I declared my output path it required a "\" at the end.

Thank you!!!

"Rookie_User" wrote:

> I inserted the full path in column A and was getting it closer but it errors 
> by saying a file already exists when it attempts the move?  I put watches on 
> the values and the destination is accurate and the file does not exist there, 
> any idea's?
> 
> "Jeff" wrote:
> 
> > Try this
> > 
> > Public Sub MoveFiles(ByVal Source As String, ByVal Destination As String)
> >   Dim oFSO As Object
> > 
> >   
> >   Set oFSO = CreateObject("Scripting.FileSystemObject")
> > 
> >   With oFSO
> >     If .FileExists(Source) Then
> >       .MoveFile Source, Destination
> >     Else
> >       MsgBox Source & " Doesn't Exist", vbExclamation
> >     End If
> >   End With
> > Set oFSO = Nothing
> > End Sub
> > 
> > Sub RunThroughList()
> >   Dim I As Long
> >   Dim Destination As String
> >   Dim Lastrow As Long
> >   
> >   Lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
> >   
> >   For I = 1 To Lastrow
> >     MoveFiles Range("A" & I).Value, "C:\Documents and Settings\My Documents\"
> >     
> >   Next
> > End Sub
> > 
> > 
> > 
> > 
> > "Rookie_User" wrote:
> > 
> > > I would like to cascade down through my worksheet from top to the end and 
> > > process the data as follows.  In column A I have a filename, I will have a 
> > > constant source folder identified (ie. c:\input) and target folder identified 
> > > (ie. c:\output).
> > > 
> > > Column A
> > > test1.txt
> > > test2.txt
> > > test3.txt
> > > 
> > > I would like to verify the file actually exists and IF it does then move it 
> > > to the destination folder and delete the file.  If the file does NOT exist 
> > > then possibly highlight that cell so it can be removed from the worksheet.
> > > 
> > > I had a function that checks the file but all UDF are no longer working.  I 
> > > use Excel 2007.  Any help would be appreciated.