Help With Vb Code

Just a little update. After a whole day of banging my head off the wall, I finally figured it out! The updated code will be posted below if anyone needs to do something similar. Just to understand a little more of what I needed to do. We store our PCDmis programs in 2 directories. A permanent folder, which is locked so operators cannot access, and is used for programs that have been proved out. Then we have a temporary folder for NEW programs that haven't been proved out. For all new programs I have a FileIO command that writes the part# to a text file when the program has ran all the way through. So then I go review the report for that part and make sure nothing is wonky, then move the program over to the permanent folder so our operators do not have to run the CMM in slow thinking part has never been ran before. The problem I have with the FileIO command is you have to go unmark those couple "writeline" commands or else every time the part runs, its prints to that text file. So I have to manually have to go into each program, and "blue" those lines out when moving to the permanent folder. I could have written a code to paste the actually directory in my input box so it would do it for one single program, but the problem is we have many different CMM's so we have the same program in subfolder after subfolder for each machine. So I wanted a to write a code where it found the part number folder and searched through each individual subfolder and updated every instance of that program. The code on this original post was only searching for the file one subfolder deep so it was kicking out of the loop. We typically have at least 2 or 3 subfolders until you find the actual program, so I found another way to get to it. Here it is.


Sub UnmarkProgramNotification()
Dim FSOLibrary As Object
Dim FSOFolder As Object
Dim folderName As String
Dim Ppath As String
Dim CurrentPath As String
Dim SAPnum As String
Dim ACpath As String
Dim BCpath As String
Dim myFile As Variant


Ppath = VBA.InputBox("Do you want to update a BC program, or and AC program? Type AC, or BC ")


SAPnum = VBA.InputBox("Please Enter The Program Name")


BCpath = "F:\Secure\Inspection\CMM Programs_Temporary_PCDmis" & "" & SAPnum & ""
ACpath = "F:\Secure\Inspection\CMM Programs_Temporary_PCDmis\AC_PROGRAMS" & "" & SAPnum & ""


If Ppath = "BC" Then
CurrentPath = BCpath
Else: CurrentPath = ACpath
End If

myFile = SAPnum & ".PRG"

'Set the folder name to a variable
folderName = CurrentPath

'Set the reference to the FSO Library
Set FSOLibrary = CreateObject("Scripting.FileSystemObject")

'Another Macro must call LoopAllSubFolders Macro to start
LoopAllSubFolders FSOLibrary.GetFolder(folderName), myFile



Exit Sub



End Sub
Sub LoopAllSubFolders(FSOFolder As Object, myFile)

Dim FSOSubFolder As Object
Dim FSOFile As Object
Dim MyPath As String
Dim MyCommand As Object
Dim CurrCommand As String




'For each subfolder call the macro
For Each FSOSubFolder In FSOFolder.subfolders
LoopAllSubFolders FSOSubFolder, myFile
Next


For Each FSOFile In FSOFolder.Files

'Insert the actions to be performed on each file
If FSOFile.NAME = "" Then GoTo Done
If FSOFile.NAME = myFile Then




'Create an instance for PCDmis
Set app = CreateObject("PCDLRN.Application")
MyPath = FSOFile.Path
'Debug.Print MyPath

'Wait for PCDmis to load up
app.WaitUntilReady (20)

'set program to active part program
Set parts = app.PartPrograms
Set part = parts.Open(MyPath, "Offline")
app.Visible = False
Set cmds = part.Commands

For Each cmd In cmds
Debug.Print cmd.ID


If cmd.IsFileIOCommand Then
Set MyCommand = cmd.FileIOCommand
Debug.Print MyCommand.FilePointerID
CurrCommand = MyCommand.FilePointerID


If CurrCommand = ("PART_COMPLETE") Then
cmd.Marked = False


End If

End If

Next cmd

part.Close


End If
'Debug.Print FSOFile.NAME
Next
Done:
'Release Memory of Objects
Set app = Nothing
Set part = Nothing
Set parts = Nothing
Set cmd = Nothing
Set cmds = Nothing
Set MyCommand = Nothing

End Sub

Just a little update. After a whole day of banging my head off the wall, I finally figured it out! The updated code will be posted below if anyone needs to do something similar. Just to understand a little more of what I needed to do. We store our PCDmis programs in 2 directories. A permanent folder, which is locked so operators cannot access, and is used for programs that have been proved out. Then we have a temporary folder for NEW programs that haven't been proved out. For all new programs I have a FileIO command that writes the part# to a text file when the program has ran all the way through. So then I go review the report for that part and make sure nothing is wonky, then move the program over to the permanent folder so our operators do not have to run the CMM in slow thinking part has never been ran before. The problem I have with the FileIO command is you have to go unmark those couple "writeline" commands or else every time the part runs, its prints to that text file. So I have to manually have to go into each program, and "blue" those lines out when moving to the permanent folder. I could have written a code to paste the actually directory in my input box so it would do it for one single program, but the problem is we have many different CMM's so we have the same program in subfolder after subfolder for each machine. So I wanted a to write a code where it found the part number folder and searched through each individual subfolder and updated every instance of that program. The code on this original post was only searching for the file one subfolder deep so it was kicking out of the loop. We typically have at least 2 or 3 subfolders until you find the actual program, so I found another way to get to it. Here it is.


Sub UnmarkProgramNotification()
Dim FSOLibrary As Object
Dim FSOFolder As Object
Dim folderName As String
Dim Ppath As String
Dim CurrentPath As String
Dim SAPnum As String
Dim ACpath As String
Dim BCpath As String
Dim myFile As Variant


Ppath = VBA.InputBox("Do you want to update a BC program, or and AC program? Type AC, or BC ")


SAPnum = VBA.InputBox("Please Enter The Program Name")


BCpath = "F:\Secure\Inspection\CMM Programs_Temporary_PCDmis" & "" & SAPnum & ""
ACpath = "F:\Secure\Inspection\CMM Programs_Temporary_PCDmis\AC_PROGRAMS" & "" & SAPnum & ""


If Ppath = "BC" Then
CurrentPath = BCpath
Else: CurrentPath = ACpath
End If

myFile = SAPnum & ".PRG"

'Set the folder name to a variable
folderName = CurrentPath

'Set the reference to the FSO Library
Set FSOLibrary = CreateObject("Scripting.FileSystemObject")

'Another Macro must call LoopAllSubFolders Macro to start
LoopAllSubFolders FSOLibrary.GetFolder(folderName), myFile



Exit Sub



End Sub
Sub LoopAllSubFolders(FSOFolder As Object, myFile)

Dim FSOSubFolder As Object
Dim FSOFile As Object
Dim MyPath As String
Dim MyCommand As Object
Dim CurrCommand As String




'For each subfolder call the macro
For Each FSOSubFolder In FSOFolder.subfolders
LoopAllSubFolders FSOSubFolder, myFile
Next


For Each FSOFile In FSOFolder.Files

'Insert the actions to be performed on each file
If FSOFile.NAME = "" Then GoTo Done
If FSOFile.NAME = myFile Then




'Create an instance for PCDmis
Set app = CreateObject("PCDLRN.Application")
MyPath = FSOFile.Path
'Debug.Print MyPath

'Wait for PCDmis to load up
app.WaitUntilReady (20)

'set program to active part program
Set parts = app.PartPrograms
Set part = parts.Open(MyPath, "Offline")
app.Visible = False
Set cmds = part.Commands

For Each cmd In cmds
Debug.Print cmd.ID


If cmd.IsFileIOCommand Then
Set MyCommand = cmd.FileIOCommand
Debug.Print MyCommand.FilePointerID
CurrCommand = MyCommand.FilePointerID


If CurrCommand = ("PART_COMPLETE") Then
cmd.Marked = False


End If

End If

Next cmd

part.Close


End If
'Debug.Print FSOFile.NAME
Next
Done:
'Release Memory of Objects
Set app = Nothing
Set part = Nothing
Set parts = Nothing
Set cmd = Nothing
Set cmds = Nothing
Set MyCommand = Nothing

End Sub