ارجوا المساعدة في انشاء مجلد جديد عن طريق الفيجوال

السوال الثاني و الثالث تحتاج الى استعمال ال file system object

Project->Preference->Microsoft scripting runtime

Private Sub Form_Load()
Dim FS as new FileSystemObject
if FS.FolderExists(app.path & "\folder1") = false then
mkdir app.path & "\folder1"
end if 
End sub

شكرا اخي العزيز

سوف اجرب الكود

ولكن بالنسبه الى السؤال الاول

اتمنى ان احصل علية باقرب وقت

هذا الرابط يحتوي على درس لتعلم ارسال email

http://www.devarticles.com/c/a/Visual-Basi...n-Visual-Basic/

شكرا اخي العزيز

ولكن للأسف

لا افهم الانجليزي كثيرا

لذلك لم استطع ايجاد الكود او الاداه المستخدمه في ذلك الرابط

فلو تسمح تبسط لي الامر

و سؤال اخير ( اذا ا في كلافه عليك )

في كود انشاء مجلد جديد

كيف انشئ مجلد داخل My Documents

انا اعرف الكود التالي

Private Type SECURITY_ATTRIBUTES
 nLength As Long
 lpSecurityDescriptor As Long
 bInheritHandle As Boolean
End Type
Private Declare Function CreateDirectory Lib "kernel32.dll" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Sub Command1_Click()
Dim attr As SECURITY_ATTRIBUTES  ' security attributes structure
Dim rval As Long
' Set  security attributes
attr.nLength = Len(attr)  'size of the structure
attr.lpSecurityDescriptor = 0  'normal level of security
attr.bInheritHandle = 1  'default setting
' Create directory.
rval = CreateDirectory("C:\My Documents\New Folder", attr)
End Sub

اي بدل C:\My Documents\New Folder

يذهب الى mydocument

حسب الويندوز فـ مسار mydocument يختلف في كل ويندوز

انا اعرف ان يجب استخدام docpath

ولكن كيف ابدل الامر

rval = CreateDirectory("C:\My Documents\New Folder", attr)

؟؟

اضافة لموضوع انشاء مجلد هناك وظيفة مبيتة داخل فيجوال بيسك سهلة الاستخدام الا وهي MkDir

اي لو اردت انشاء مجلد اسمه 1 على القرص سي اكتب

MkDir "c:\1"

في حال اردت ان تقوم بانشاء مجلد موجود فسوف تحصل على رسالة خطاء ولذلك تاكد منه بالوظيفة DIR

واليك الكود التالي قم بوضعه تحت زر امر وراقب عمله

If Dir("c:\1",vbDirectory) = "" Then MkDir "C:\1"

عفوا بالنسبة للسؤال الاول راجع

/index.php?showtopic=37602

عفوا اخي العزيز

ارفق هنا جزء من مشروع صغير

واريد استكماله بارسال الرساله

وانا عرفت ان هناك ملفين قد يستخدما للارسال

هما msmapi32.ocx او sendmail.ocx

ولكن انا لا اعرف كيفيه تشغيل الملفين (احدهما او كلاهما)

وايهما افضل من خلال سرعة الارسال و الافضليه للمستخدمين

sendmsg.zip

اه ماذا افعل مع هذه الاداة للارسال

sendmsg.zip

ارجو منك البحث عن كود يعمل في ال www.pscode.com لان لا خبرة لي في ال emialing in visual basic

عفوا اخي العزيز

انا ما قصدت الازعاج لكن فعلا انا تعبت في البحث

كل ما اجد كود

ينقص اداة

او اذا وجدت الاداة نقص الكود المناسب لها

واذا وجدتهما الاثنين لم يتم الارسال

هل تتكرم اخي العزيز

بسؤال اهل الخبره عن كود الارسال و الاداه