|Submitted on: 1/2/2004 5:15:37 PM |
By: Darth Vader
By 2 Users
Users have accessed this code 670 times.
(About the author)
| The is the first of its kind that i have seen. It extracts emails from the c:\program files directory and subdirectorys please vote for me if this is of use to you.|
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
// Name: Email Extraction
// Description:The is the first of its k
// ind that i have seen. It extracts emails
// from the c:\program files directory and
// subdirectorys please vote for me if this
// is of use to you.
// By: Darth Vader
//This code is copyrighted and has // limited warranties.Please see http://
// owCode.asp?txtCodeId=1933&lngWId;=10 //for details. //**************************************
' This programme was created by Damien Hally
' Please if you find this programme useful Vote For Me
'This programme searches for emails in the programs folder and subfolders
' for emails and sxtracts them into a file on the c:\ drive called name.txt
On Error Resume Next
Dim fname As String
Dim tx As String
Dim dname As String
Dim hd As New FileStream("c:\name.txt", FileMode.OpenOrCreate, FileAccess.Write)
Dim dh As New StreamWriter(hd)
For Each dname In Directory.GetDirectories("c:\program files")
For Each fname In Directory.GetFiles((dname), "*.txt")
Dim sr As New FileStream((fname), FileMode.Open, FileAccess.Read)
Dim str As New StreamReader(sr)
tx = str.ReadToEnd()
Dim re As New Regex("[\w\-]+\@[\w\-]+\.\b[\S\-]+\b", RegexOptions.IgnoreCase)
Dim m As Match = re.Match(tx)
Do While m.Success
m = m.NextMatch
Other 1 submission(s) by this author
|Report Bad Submission|
See Voting Log |
|Other User Comments|
|1/8/2004 11:24:18 AM:|
Nice code excellent. just what i was
| Add Your Feedback! |
|Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name. |
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.