Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Private Sub CommandButton3_Click() Dim fileList() As String Dim fName As String Dim fPath As String Dim I As Integer Me.ListBox1.Clear 'define the directory to be searched for files fPath = "Z:\Templates\fr-fr\Offres + transport\" 'build a list of the files fName = Dir(fPath & "*.doc") While fName <> "" 'add fName to the list I = I + 1 ReDim Preserve fileList(1 To I) fileList(I) = fName 'get next filename fName = Dir() Wend 'see if any files were found If I = 0 Then MsgBox "No files found" Exit Sub End If 'cycle through the list and add to listbox For I = 1 To UBound(fileList) Me.ListBox1.AddItem fileList(I) Next End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!