Ok, the following codes shows how I am enterting a value into a textbox,

Question

0

Asked: June 11, 20262026-06-11T03:54:40+00:00 2026-06-11T03:54:40+00:00

Ok, the following codes shows how I am enterting a value into a textbox,

0

Ok, the following codes shows how I am enterting a value into a textbox, adding that value to the listbox, updating a picturebox next to it and blanking out the textbox so the user can add additional values to the listbox.

    ListBox1.Items.Add(TextBoxTicketID.Text)

    If CStr(ListBox1.Items(0)) = TextBoxTicketID.Text Then
        PictureBoxStatus1.Image = My.Resources.Orange_Information
    End If

    TextBoxTicketID.Text = ""

I have another process not shown here that will create a PDF based on the value that was entered into the listbox.

I’m having trouble with a loop to check a specific directory if the PDF exists or not. When the PDF exists, I’ll change the picturebox to another image.

Here is the loop that I was using, but the issue I ran into was that the user couldn’t enter a second value unless the first value was present.

Loop Until My.Computer.FileSystem.FileExists("c:\Temp\" + ListBox1.Items(0) + ".pdf")
PictureBoxStatus1.Image = My.Resources.Green_Checkmark

So in theory, I need to be able to enter X amount of values into the listbox and keep checking to see if the file exists and if it does, change those images that needed.

EDIT

Here’s what I ended up doing…seems to be working fine though…

    ListBox1.Items.Add(TextBoxTicketID.Text)

    If CStr(ListBox1.Items(0)) = TextBoxTicketID.Text Then
        PictureBoxStatus1.Image = My.Resources.Orange_Information
    End If

    TextBoxTicketID.Text = ""
    Call CheckFiles()

Added a public sub

    Public Sub CheckSpooling()
    Dim Watcher As New FileSystemWatcher()
    Watcher.Path = "C:\Temp\"
    Watcher.Filter = ListBox1.Items(0) + ".pdf"

    AddHandler Watcher.Created, AddressOf OnChanged

    Watcher.EnableRaisingEvents = True
    End Sub

Then the sub to run whatever is needed if the file was added. I used a msgbox for testing.

    Private Shared Sub OnChanged(source As Object, e As FileSystemEventArgs)
    ' Specify what is done when a file is created.
    MsgBox("File has been created!")
    End Sub