بسم الله الرحمن الرحيم
إخواني هذا كود ليحفظ إسم الملف المختار من النافذة فالريجيستر
SaveSetting App.EXEName, "Setting", "file", Dir(CommonDialog1.FileName)
كيف يمكن عمل ذلك لحفظ مسار الملف :unsure: ؟!
SaveSetting App.EXEName, "Setting", "path", path(CommonDialog1.؟؟؟؟؟؟؟؟؟)
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
السلام عليكم ورحمة الله وبركاتة
فى الأولى أنتى قررتى حفظ الملف + مسارة فى الثانية مسارة فقط لذا الكود كالتالى (نحتاج أولا فصل الملف عن مسارة):
Dim Items() As String Items = Split(CommonDialog1.FileName, "\") If UBound(Items) = -1 Then Exit Sub GetFile = Items(UBound(Items)) mypath = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(GetFile)) SaveSetting App.EXEName, "Setting", "path", Path(mypath)
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
تحية لك اخي الفاضل shearer
بصراحة كودك مو مفهوم <_<
أنا فجأه بعد ماشفت كودك حسيت اني ما افهم شي
حاولت افهمو لوحدي على الاقل شي من الكود...لكن..
هوا شغال %% لكن اريد ان افهمه فلو سمحت توضيح الكود وخصوصا
Split
UBound
GetFile
mypath
------------------------------------------------------------تحياتي, :(
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الأخ شرير يا شرير براحة على الناس شوية :)
الى / Power Girl
اولا split دالة تجزأ متغير من نوع string وذلك حسب حرف معين و ترجع الناتج فى array واليك مثال لتتضح الرؤية نفترض فى مثالنا الاتى
dim items() as string عرفنا مصفوفة عدد عناصرها مجهول
items=split("c:\ttt\rrr\power.txt","\")l
الذى حدث بعد هذا السطر هو الاتى
items(0)=ttt
items(1)=rrr
items(2)=power.txt
و بالتالى فان اسم الملف هو اخر عنصر فى المصفوفة
لكن المفروض ان احنا منعرفش عدد عناصر المصفوفة و بالتالى يتم استخدام دالة Ubound التى ترجع رقم أخر عنصر فى المصفوفة و فى مثالنا هذا سوف ترجع رقم 2
أما GetFile فهو متغير string عادى يتم الاحتفاظ فيه بأخر عنصر فى المصفوفة
أما mypath فأبضا متغير نصى عادى يتم الاحتفاظ فيه بالجزأ الاول من مسار الملف ولكن بعد ازالة اسم الملف و ذلك تم عمله من خلال الدالة left
ارجو ان تكونى فهمتى الشرح
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
السلام عليكم ورحمة الله وبركاتة
أوامر ياسيد روكيت
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
تحية طيبة للخبراء الي عندنا
بجد بجد شيء رائع جداااااااااا
Vere Fantastic B)
It Will Be Vere Eyse..
كود عبقري وشرح جبار
Thank a lot VB6-Rocket and shearer
am Happy Know :lol:
الله يفرحكم يارب زي مافرحتوني
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
على الرحب و السعة دائما B)
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
هذا الموضوع مغلق.