Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FILESEARCH OBJECT
HOW COME IF I RUN THE BELOW AND IF THE .FoundFiles.Count DOES ACTUALLY
EQUAL 0 THEN IT WILL SAVECOPYAS OF THE FILE IN THE APPROPRIATE PLACE. THE TROUBLE IS THAT IF I RUN THE CODE AGAIN IT STILL HAS THE ..FoundFiles.Count AS 0 !! THE ONLY WAY IT WILL RECOGNISE THE NEWLY SAVED FILE IS IF I LOG OFF THE SERVER AND RE-RUN THE CODE ! ANY ONE GOT ANY IDEAS HOW I CAN MODIFY THE CODE TO AVOID THE ABOVE? ANY HELK GREATLY APPRECIATED. JASON Function SaveThisWorkBook() Dim fs As FileSearch Set fs = Application.FileSearch With fs .LookIn = "I:\Finance\PIMS\Archived Log" .Filename = "Log " & Format(Now, "dd mmm yyyy") & ".xls" If .FoundFiles.Count = 0 Then ThisWorkbook.SaveCopyAs "I:\Finance\PIMS\Archived _ Log\Log " & Format(Now, "dd mmm _ yyyy") & ".xls" End If End With Set fs = Nothing End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lookin property of the FileSearch object | New Users to Excel | |||
csv for filetype property of filesearch object | Excel Programming | |||
FileSearch | Excel Programming | |||
.FileSearch | Excel Programming | |||
Multiple text criteria with FileSearch object? | Excel Programming |