Move and delete files
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.
|