گرفتن نام تمام پوشه ها

[Mahdi-v]

با سلام خدمت اساتید محترم
میخواستم بدونم چه طوری میشه با کلیک بر روی یک باتن اسم تمام فایل هایی که توی یکی از درایو های ویندوز هست (مثلا دی یا سی) رو بریزه توی یک ریچ تکست باکس
با تشکر فراوان

[Aryan.Software]

Imports System.IO
Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dirArr As Array = IO.Directory.GetFiles("c:\")
ListBox1.Items.Clear()
For Each item In dirArr
ListBox1.Items.Add(item)
Next
End Sub
End Class


البته هر فایل رو به عنوان آیتم به لیست باکس اضافه میکنه. با یه Join میتونی به طور دلخواه به ریچ تکست باکس اضافش کنی.

[Mahdi-v]

با تشکر فراوان
حالا میخوام بدونم چه طوری میشه همون فایلای توی لیست باکس یا حالا تکست باکس رو ایمیل کرد(به ایمیل مشخص که توی کد مشخص میشه) ؟ :قلب::قلب::قلب::قلب::قلب::قلب:

[Aryan.Software]

با این کد ایتم های یه لیست باکس رو میتونی ایمیل کنی:


Dim itmsSTR As String
For i = 0 To ListBox1.Items.Count - 1
itmsSTR = itmsSTR + ListBox1.Items.Item(i) & "%0A"
Next
Process.Start("mailto:someone@gmail.com?body=" & itmsSTR)

[Mahdi-v]

خیلی مردی دمت گرم اما یه مشکلی وجود داره
من میخواستم با یه ایمیلی که بهش میدم اطلاعاتو بفرسته به یه ایمیل دیگم اما با این سورس وقتی روی باتن ایمیل کردن کلیک میکنی ازت میپرسه با چه فایلی میخوای ایمیل کنی و از این حرفا نمیدونم متوجه شدید منظورمو یا نه این عکسو ببینید
http://upload7.ir/imgs/2014-07/53363919925194646414.png

میپرسه اون ویت میخوام یه راست ایمیلو بده کلکو بکنه خیلی مخفی و مرموزانه :لبخند:

[Aryan.Software]

میخوای ویروس بسازی؟ :لبخند:

به هر حال اگه بخوای اونجوری ایمیل بدی که کارت مشکل میشه باید از smtp کمک بگیری فک کنم. سرچش کن

[Mahdi-v]

استاد یه ویروس فجیه :))))))))))

باشه چشم یه سرچی میکنم ببینم میشه یا نه ولی بشه چی میشه :لبخند: تقریبا همشو نوشتم فقط همینجاش واسم مشکله

پیداش کردم اینم یه سورس خیلی ساده برای دوستانی که مشکل منو داشتن
Try

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("your email", "your pass")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("Email Taraf")
mail.From = New MailAddress("Email shoma")
mail.Subject = "subject"
mail.Body = "<b><font color=black>" + "Matn"
SmtpServer.Send(mail)
MsgBox("Item Send Succesfully!")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
Return


اینا رو هم اول اول کداتون بذارین

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Net.Mail
Imports System.Net.Sockets
Imports System.Text
Imports System.Net.Security

[Mahdi-v]

Imports System.IO
Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dirArr As Array = IO.Directory.GetFiles("c:\")
ListBox1.Items.Clear()
For Each item In dirArr
ListBox1.Items.Add(item)
Next
End Sub
End Class


البته هر فایل رو به عنوان آیتم به لیست باکس اضافه میکنه. با یه Join میتونی به طور دلخواه به ریچ تکست باکس اضافش کنی.

اگه امکان داره میشه یه لطفی کنید سورس ریختن اطلاعات توی ریچ تکست باکس هم آموزش بدید هر کدی نوتشم نشد !!!!

[Aryan.Software]

اگه امکان داره میشه یه لطفی کنید سورس ریختن اطلاعات توی ریچ تکست باکس هم آموزش بدید هر کدی نوتشم نشد !!!!


Imports System.IO
Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim dirArr As Array = IO.Directory.GetFiles("c:\")
Dim attach As String
RichTextBox1.Clear()
For Each item In dirArr
attach = attach + item & vbNewLine
Next
RichTextBox1.Text = attach
End Sub


End Class