simple program to scan a directory for a certain type of extension 1

[jcastilletti]

I am looking for some simple code perhaps using the dir statement or function to search a directory for *.pgp files.

I will then need to decrypt these files.

Any help is greatly appreciated.

John

 

[Ruairi]

The code below will fill the array Files() with the names (including path) of all the files in the directory DirName.

Dim DirName As String 
Dim FileName As String 
Dim Files() As String 
Dim Count As Long 

'Put the directory to search in DirName somehow
Count = 0 
FileName = Dir(DirName & "*.pgp") 

If FileName = "" Then 
   MsgBox "No Files Found" 
   Exit Sub 
End If 

While FileName <> &quot;&quot; 
    Count = Count + 1 
    Redim Preserve Files(1 To Count) 
    Files(Count) = DirName &amp; FileName 
    FileName = Dir 
Wend

HTH Ruairi

Could your manufacturing facility benefit from real time process monitoring? Would you like your employees to be able to see up to the minute goal and actual production?
For innovative, low cost solutions check out my website.

http://www.plccontroltechnologies.com