Move Files Depending on File Size.... ...Error Occured 2

[comnetlimited]

Hi,
I am newbie to VBScript. Below is a VBScript I wrote in Notepad (is there a proper software to use to write VB Script so that syntax can be checked??) and then save as Clear Error Folders.vbs on my deskstop.

What I am tryin to achieve is to move ONLY files that has a size of 1 KB From My Error folder to Data Folder.

Shown below is my below is my script.
Note i use >= 1 (??? is 1 KB = 1 ) for testing purposes only, just to see if the script can work.

++++++++++++++++++++++++++++++++++++++++++++++++++
Sub ProcessFiles()
dim oFile

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Data = FSO.GetFolder("D:\Data")
Set Error = FSO.GetFolder("D:\Error")

For Each oFile In Error.Files
If oFile.size >= 1 then
FSO.MoveFile "D:\Error\" & (oFile.Name) , Data
End if
Next

End Sub

Call ProcessFiles
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++

However, it comes up with an Error:

Script: C:\Documents and Settings\mnarewec.stcheadoffice\Desktop\Clear Error Folders.vbs

Line: 10
Char: 4
Error: File already exists
Code: 800A003A
Source: Microsoft VBScript runtime Error

But Honestly, there is no file(s) in folder D:\Data

Please somebody help.

Thank you in advance

 

[tsuji]

[tt]
For Each oFile In Error.Files
If oFile.size >= 1[red]024[/red] then
FSO.MoveFile [blue]oFile.path[/blue], Data[red].path & "\"[/red], [blue]true[/blue]
[green]'or simply, without the need of using "Data" object
'FSO.MoveFile oFile.path, "D:\Error\"[/green]
End if
Next
[/tt]
Documentation :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthmovefile.asp

 

[PHV]

My 2 cents:

Option Explicit
Sub ProcessFiles()
Dim FSO, oError, oFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oError = FSO.GetFolder("D:\Error")
For Each oFile In oError.Files
If oFile.Size >= 1024 Then
   FSO.MoveFile oFile.Path, "D:\Data\", True
End If
Next
End Sub

Call ProcessFiles

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[comnetlimited]

Thank you PHV and TSUJI...for your greate Help.

Actually what I was trying to achieve is to delete files that has less than 1KB and also delete files which has file extension of "err" (Error and Move move other files to the folder D:\Data

It worked fine by deleting the 1KB size files, but it seems the code for determining the file Extension is not working. That is it is deleting the 1KB files by Moving ALL files (including the error files ) to D:\Data

Here is my Code
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Option Explicit
Sub ProcessFiles()
Dim FSO, oError, oFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oError = FSO.GetFolder("D:\Error")
For Each oFile In oError.Files

If oFile.Size <= 1024 Then
FSO.DeleteFile oFile.Path
Else
If left(oFile.Name,3) = "ERR" Then
FSO.DeleteFile oFile.Path
Else
FSO.MoveFile oFile.Path, "D:\Data\"
End If
End If

Next
End Sub

Call ProcessFiles
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
By the PHV, your code {FSO.MoveFile oFile.Path, "D:\Data\", True} did not work, it comes up with error so I have to remove the TRUE and it works perfectly...thanks

Thanks in advance for your help.

 

[PHV]

Replace this:
If left(oFile.Name,3) = "ERR" Then
By this:
If UCase(Left(oFile.Name, 4)) = ".ERR" Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[comnetlimited]

PHV Thanks,
But I use your example in another post and got it Right.
I replace
If left(oFile.Name,3) = "ERR" Then
with
If Lcase(Right(oFile.Name,3)) = "err" Then

And it works fine. File Extension are three Last Char of the File Name therefore I think Lcase(Right(oFile.Name,3)) works fine.

BTW thanks for the quick response.