email first file in a folder then move the file

[Max Bialystock]

Is it possible to take the first file in a folder (as sorted by name), email
it to someone, then move the file to a separate directory?

Any help at all will be much appreciated.

Thanks,
Max

[Bernie Yaeger]

Hi Max,

Sorry I didn't see your post until now.

The answer is yes, of course.

You'll want to start something like this:
Dim dirinfo As New DirectoryInfo(" h:\tavo\vwsales \")

Dim finfo As FileInfo() = dirinfo.GetFile s("vw*.dbf")

Dim finfo_ As FileInfo

Dim larraylist As New ArrayList

For Each finfo_ In finfo

larraylist.Add( finfo_.Name)

Next

Then you can sort it, get the name of the first item, send it in an email as
an attachment, and then delete it. The email part: begin by using an
imports statement at the top of the module (above the class):

Imports System.Web.Mail

Then, in perhaps the click event of the button that will launch this:

Dim msg As New MailMessage()

msg.To = "be*****@optonl ine.net"

msg.From = "be*****@cherwe llinc.com"

msg.Subject = "test subject"

msg.Body = "this is the test info"

Dim astring1 As String = "c:\my documents\wzo letter.doc"

msg.Attachments .Add(New MailAttachment( astring1))

Dim astring2 As String = "c:\my documents\visua l basic notes.doc"

msg.Attachments .Add(New MailAttachment( astring2))

msg.Cc = "we*******@cher wellinc.com"

SmtpMail.SmtpSe rver = "smtp.registere dsite.com"

Try

SmtpMail.Send(m sg)

Catch ex As Exception

MessageBox.Show (ex.Message)

End Try

HTH,

Bernie Yaeger

"Max Bialystock" <ca******@legs. com> wrote in message
news:uP******** *****@tk2msftng p13.phx.gbl...

Is it possible to take the first file in a folder (as sorted by name), email it to someone, then move the file to a separate directory?

Any help at all will be much appreciated.

Thanks,
Max