Code:
Private Function RunFolder(FolderToProcess As String) As Boolean
Dim rtnStatus As Boolean = False
My.Settings.Item("FolderToProcess") = FolderToProcess & "xxx"
My.Settings.Save()
MessageBox.Show("Folder has been processed: " & FolderToProcess)
Return rtnStatus
End Function
.
.
.
Dim FolderToProcess As String = ""
Try
FolderToProcess = My.Settings.Item("FolderToProcess").ToString
Catch ex As Exception
' no op
End Try
If FolderToProcess = "" Then
StartRequests(prefixes)
Else
RunFolder(FolderToProcess)
Me.Close()
End If