Counting number of files in ID

Question

Hello Experts,
                   I have a scenario where a job runs weekly and creates 6 files on one of the prod folders in a legacy system. The files are FTPd to PI. Before picking the files we need to ensure that the count for the files on that folder is 6. If it is 6 or greater then we can pick all those 6 files and send it across to PI (also with archiving it on another folder structure in the legacy system) where PI will send it to another system. If the count is less than 6, then we do not need to do any thing. If count 6 is reached and the files are picked, reset the counter to 0.
    So for this scenario do we need to use a BPM or we can manage with the "Run OS Command...." option??. If any of you have come across such a scenario, then pls let me know the solution. Current version of PI is 7.1 .
     Points to best answer/solution will be given.
Thanks.

Answer 1

Hi, This is just sample script you can reference:
Script_1:
Dim objFileScripting, objFolder
Dim filename, filecollection, currentFolder,counter
currentFolder = ActiveDocument.Path
On Error Resume Next
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileScripting.GetFolder(currentFolder)
Set filecollection = objFolder.Files
        For Each filename In filecollection
          counter = counter+1      
        Next
if counter = 6 then
        For Each filename In filecollection
          objFileScripting.CopyFile filename,"..\Folder_1\" & filename      
        Next
else
      call sendmail("mailaddress", "Title Here","Content Here")  
endif
set  objFileScripting = nothing
     set objFolder = nothing
     set filecollection = nothing  
'This function is used to send out email notification, the usage are like:
'call sendmail("mailaddress", "Title Here","Content Here")
Function sendmail (recipient, title,  message)
Dim oLapp
Dim oItem
Set oLapp = CreateObject("Outlook.application" )
Set oItem = oLapp.CreateItem(0)
With oItem
.To = recipient
.Subject = title
.Body = message
End With
oItem.Send
Set oLapp = Nothing
Set oItem = Nothing
end function
Script_2: scheduler
Dim ws
On Error Resume Next
set ws = WScript.CreateObject("WScript.Shell")
ws.Run ("script_1.vbs")
while 1 = 1   
   WScript.Sleep 1000*60*60       'sleep 1 hour, run your first script every 1 hour
   ws.Run ("script_1.vbs")
Wend
set ws = nothing
Make sure in your source system, you have outlook mail setup there.
Put the two scripts in folder_2, to check the number of files
Regards.
Liang
Edited by: Liang Ji on Apr 4, 2009 4:14 AM