If i place tha also it is showing up an error like "expected identifier"
Code:
'function: FileMove
'desc : Moves a file from one location to another
' params : strFile - full path to the source file
' strTarget - the folder to move the file to
' returns : void
' ------------------------------------
Function FileMove("D:\ccc, D:\Target")
Dim objFS
' create a file system object
Set objFS = CreateObject("Scripting.FileSystemObject")
' check that the source file exists
If Not objFS.FileExists(strFile) Then
' fail if the source does not exist
reporter.ReportEvent micFail, "Move File", "Unable to Move the File '"& strFile &"', It Does Not Exist"
Else
' create the destination folder if it doesn't already exist
If Not objFS.FolderExists(strTarget) Then
objFS.CreateFolder(strTarget)
End If
' move the file
objFS.MoveFile strFile, strTarget
End If
' destroy the object
Set objFS = Nothing
End Function 'FileMove