ディレクトリを常にチェックして新しいファイルがあるかどうかを確認し、ある場合はそのファイル名をリストに追加するものをどこでも探していました
私はこれを持っていますが、リストをクリックしたときにのみ機能します
Dim JAR As String = "*.jpg"
Dim DirInfo As DirectoryInfo = New DirectoryInfo(dir)
Dim Files() As FileInfo = DirInfo.GetFiles(JAR, SearchOption.AllDirectories)
Dim File As FileInfo
Const extension As String = ".jpg"
For Each File In Files
If (Not list.Items.Contains(File.Name)) Then
list.Items.Add(File.Name)
list.Text.Substring(0, ClientList.Text.Length - extension.Length)
list.Text = list.Items.Count
End If
Next (File)