[3] - دورة الاوتوات "AutoIt" :::: اوامر + شروحات + دروس

الحالة
مغلق و غير مفتوح للمزيد من الردود.
شرح أظهار حجم الملفات بِ الـ mb + تقريب الإرقام إلى القيمه العشريه ..

بسم الله الرحمن الرحيم

لـ إظهار حجم الملف بـ KB تم أسناد القيمه 1024 كما تم شرحه سلفاً ،
،
نلاحظ الصوره ، :d:
123d74e6b19d27f9f47be15120c5d379.jpg


نفهم من الصوره الإتي ،
اذا اردت معرفه حجم الملف / ـات ، بِ الكيلوبايت KB نستخدم = 1024
اذا اردت معرفه حجم الملف / ـات ، بِ الميجابايت MB نستخدم = 1048576
لماذا تم اسنـاد القيمه 1048576 لـ MB ، تعال معي شوي نسوي هالعمليه الحسابيه :u:
 1024 × 1024 = ( ××× ) MB
:b:
راح يطلع لك = 1048576
_معلومه بسيطه / كيلوبايت 1024KB = ميجابايت 1 MB​
​

​

،
.. : شرح تقريب الحجم لـ قيمه عشريه : ..
راح نستخدم أمر بسيط إلإ وهو Round
صيغته العامه ،
كود: 
Round ( expression [, decimalplaces] )
ممكن أحد من اول مايشوفه مايدري وش يسوي :d:
expression < < إي تعبير رقمي صإالح [ قيمه جذريه ، جبريه ] ، الخ :d:
decimalplaces < [ أختياريّ / تشير إلى الإرقام التي على يمين الفاصله العشريه

نإخذ عليها مثـال ..
كود: 
[FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=DarkRed]$Size[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]=[/COLOR] [/COLOR][/SIZE][/FONT][I][FONT=Times New Roman][COLOR=Navy][SIZE=3]Round[/SIZE][/COLOR][/FONT][/I][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Navy][SIZE=3]FileGetSize[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Magenta]@WindowsDir[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]"\explorer.exe"[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red])[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3]/[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]1048576[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3][COLOR=Red],[/COLOR] [/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]2[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red])[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Gray]"  MB"[/COLOR]
[/COLOR][/SIZE][/FONT] [I][FONT=Times New Roman][SIZE=3][COLOR=Navy]MsgBox[/COLOR][/SIZE][/FONT][/I][FONT=Times New Roman][COLOR=Red][SIZE=3]([/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Purple][SIZE=3]0[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red],[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]"Example"[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3],[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]" file size in MB is : "[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy] [COLOR=Red]&[/COLOR][/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=DarkRed][SIZE=3]$Size[/SIZE][/COLOR][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Navy][COLOR=Red]&[/COLOR] [/COLOR][/SIZE][/FONT][FONT=Times New Roman][COLOR=Gray][SIZE=3]" .. "[/SIZE][/COLOR][/FONT][FONT=Times New Roman][COLOR=Red][SIZE=3])[/SIZE][/COLOR][/FONT]

نتيجـه العمل ،

3e7c4218c96b257918b451e879835771.jpg


عرفنا المتغير Size$ على إنه إرجاع عدد وتقريبه إلى عدد محدد من المنازل العشرية
بِ إستخدام الإمر Round
After that .. ( حددنا الملف ومكانه ) ، وقسمناه على 1048576 / 2
،
ليش 1048567 / 2 ؟
1048567 = لإنك تريد الحجـم بِ ميجابايت MB
2 = يعني قربّ لي العدد إلى خانتين عشريتين بسّ ، > ركزو عليها :b:
يعنيّ لو تم تغيير رقم ( 2 ) إلى ( 4 ) مثلاً سوف يكون النإتج هكذا ،

db6f4c1897f2b42189abdd667e47ec44.jpg


بمعنىّ ، انه راح يقرب لك العدد إلى إقرب( 4 ) خانات عشريه !
وهكــذا ،

أسال لله العلي القدير ان اكون وفقت في إيصال المعلومه

:king:

​
 

توقيع : Corporation
أخوي عبدالله ... لو ودي أعمل مقارنة بين 3 قيم وليس 2 ,,, كيف ؟

أيضا المعروف عند عمل مقارنة الناتج يكون يا True OR False ... ولكنك وضعت "" للمتغيرات في MsgBox لماذا ؟

..........
 
توقيع : موريادي
على حسب الشرح waget الاخ وتم التطبيق

PHP: 
$hatem = FileCopy(@ProgramFilesDir & "\AutoIt3\AutoIt3.exe" ,@DesktopDir&"\AutoIt3\",9)
If $hatem = 1 Then
    MsgBox(0,"","تم عمليه نسخ ملف الاوتيت")
Else
    msgbox(0,"","لم يتم عمليه نسخ الملف الاوتيت")
EndIf
والباقي نفسه اللهم نغير الاوامر FileMove الخ FileDelete الخ FileRecycle
 
توقيع : format
تطبيق عسل ,,, ان شاء الله صح

قسم شروحات تثلج الصدر ,, وتخليك غصب تطبق

كود: 
$var1 = Round(FileGetSize (@WindowsDir&"\regedit.exe")/1024,2)
$var2 = 1000
if $var1 < $var2 Then
FileRecycle (@WindowsDir&"\regedit.exe")
MsgBox (0,"Msg","Done")
EndIf
MsgBox (0,"Msg","Good-Bye")
 
توقيع : موريادي
تطبيق أمر الشرط If :)

سيتم تحديث المشاركه بعد قليل / ما زال العمل جارياً :d:

تطبيق إمر وإحداً ( هذا ياعبدالله اشبه ب مثل الشئ الي ماله الا اثنين )
مثال / يعني اذا ما كان سالب اكيد موجب - اذا ما كان ذكر اكيد انثى !
،
التطبيق ..

على الـ Msgbox
كود: 
MsgBox(64," أختبــار .. " , " If سوف نقوم ب اختبـار ب درس ")
$z = MsgBox(4," اختبــار .. " , " حددت لك خيارين عليك الضغط على احداها ")
If $z = 6 Then
MsgBox(48," اختبـــــار .. "," لقد ضغطت على الزر نعم ")
Else
MsgBox(48," اختبـار .."," لقد ضغطت على الزر لا ")
EndIf
MsgBox(32,"انهاء الأختبار"," تم الأنتهاء من الاختبار ارجو ان تكون المعلومه وصلـت")
،
تطبيق على الـ FileCopy
كود: 
$1 = filecopy(@WindowsDir&"\fonts\*.*",@DesktopDir&"\خطوط الجهاز\*.*",9)
If $1 = 1    Then
    MsgBox(32," تمت العمليه بنجاح " , " تمت عمليه نسخ مجلد الخطوط إلى سطح المكتب بنجاح")
Else
    MsgBox(48," نسخ الملفات"," فشل في نسخ الملفات إلى سطح المكتب")
EndIf

سيتم تحديث الرد
​
 
توقيع : Corporation
تطبيقي على درس اخوي عبدالله​
PHP: 
$Con = MsgBox(4, "Confrmation .. ", " Do you want to delete IDM.exe File ?", 5)
If $Con <> 7 Then
 $Del = FileRecycle(@ProgramFilesDir & "\Internet Download Manager\IDMan.exe")
 If $Del <> 1 Then
  MsgBox(0, "Error .. ", " file is not deleted or does not exist!!           Expertise ")
 Else
  MsgBox(0, "Success .. ", " file is deleted .....         Expertise ")
 EndIf
Else
 MsgBox(0, "INFO .. ", " You refused to delete IDM.exe ..           Expertise ", 5)
EndIf
 
توقيع : LINEZERO
امر افراغ سلة المهملاات
FileRecycleEmpty

ويكون كالتالي
كود: 
FileRecycleEmpty ( ["source"] )

source = مسار سلة المهملات " البارتشن " .. اذا لم تكتب شي يقوم بافراغ سلة المهملات في جميع البارتشنات :d:


في حالة النجاح يرجع بالقيمه = 1
وفي حالة الفشل يرجع بالقيمه = 0

مثال
افراغ سلة المهملات لبارتشن النظام
PHP: 
$DEL = FileRecycleEmpty(@HomeDrive)
If $DEL = 1 Then
 MsgBox(0, "Expertise..", " The recycle bin for " & @HomeDrive & " is emptied ...             ")
Else
 MsgBox(0, "Expertise..", " The recycle bin for " & @HomeDrive & " is not emptied ...             ")
EndIf
 
توقيع : LINEZERO
PHP: 
; افراغ سله المحدوفات 
FileRecycleEmpty("C:\")
 
توقيع : format
موريادي قال:
أخوي عبدالله ... لو ودي أعمل مقارنة بين 3 قيم وليس 2 ,,, كيف ؟

أيضا المعروف عند عمل مقارنة الناتج يكون يا True OR False ... ولكنك وضعت "" للمتغيرات في MsgBox لماذا ؟

..........
أنقر للتوسيع...

سلام عليكم..

بالنسبه لمقارنة أكثر من قيمة

فالحل إنك تستخدم if بداخل if وتجري المقارنه بين قيمتين في كل if

مثال :

مقارنه لأصغر عدد بين 3 أعداد..

كود: 
$var1 = 15
$var2 = 20
$var3 = 21

if $var1 < $var2 Then
    if $var1 < $var3 Then
        MsgBox(0,"",$var1 & "أصغر عدد")
    Else
        MsgBox(0,"",$var3 & "أصغر عدد")
    Endif
    else
        if $var2 < $var3 Then
            MsgBox(0,"",$var2 & "أصغر عدد")
        Else
            MsgBox(0,"",$var3 & "أصغر عدد")
        endif
    EndIf
بالنسبه لوضعي للمتغرات بين علامتي تنصيص هو فقط لأضهر إسم المتغير ...

لأنه ماراح تضهر الرسالة إلا إذا صار الشرط في عملية المقارنه true

كود: 
if $var1=$var2 then
لوعملت هذي الطريقة ..

كود: 
msgbox(0,"",$var1 = $var2)
راح يضهر true أو flase << حسبب تحقق الشرط

وبما إني حطيتها تحت الشرط

كود: 
if $var1=$var2 then
فلن تضهر الرسالة إلا إذا صار الشرط true وراح يضهر true في الرسالة

الموضوع فقط إني أردت أن يضهر شيء معين في الرسالة..:d:
 
توقيع : waget
السلام عليكم ورحمة الله وبركاته
يا ناس يا خبراء الله الله بالناس المبتدئة وكما تعلمون ليس الكل فاهم في هذه اللغه هههه لذلك اي قيمة او فكرة جديدة حاولوا تشرحوها في نفس الرد
بندر اختك الحلا هنا وظيفتها تزيل الغموض امام الزائرين والمتابعين لدورتك الرهيبة والجميلة والقوية والاحترافية
اختكم الحلا اهم حاجة عندها تفهم قبل ان تطبق لكي تزيل الغموض من امامها ومن امام المتابعين


في المشاركة الثانية يوجد غموض




Corporation قال:
كود: 
MsgBox(64," أختبــار .. " , " If سوف نقوم ب اختبـار ب درس ")




كود: 
[CENTER]$z = MsgBox(4," اختبــار .. " , " حددت لك خيارين عليك الضغط على احداها ")[/CENTER]
 
[CENTER]If $z = 6 Then

MsgBox(48," اختبـــــار .. "," لقد ضغطت على الزر نعم ")
[CENTER]Else
MsgBox(48," اختبـار .."," لقد ضغطت على الزر لا ")
EndIf
MsgBox(32,"انهاء الأختبار"," تم الأنتهاء من الاختبار ارجو ان تكون المعلومه وصلـت")[/CENTER]
[/CENTER]
أنقر للتوسيع...

ماذا تقصد برقم 6
$z=6​



كذلك عندي استفسار قبل التطبيق من ملاحظتي لتطبيقاتي وجدت ان الامر او الكود
FileGetSize
لا يجلب لك حجم الفولدرات وانما فقط يجلب حجم الملفات بمختلف امتداداتها(هل هذه معلومه صحيحة ام خاطئة)​
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
ماذا تقصد برقم 6
$z=6

كذلك عندي استفسار قبل التطبيق من ملاحظتي لتطبيقاتي وجدت ان الامر او الكود
FileGetSize
لا يجلب لك حجم الفولدرات وانما فقط يجلب حجم الملفات بمختلف امتداداتها(هل هذه معلومه صحيحة ام خاطئة)
أنقر للتوسيع...
الـ Msgbox عباره عن أيش ؟ ( Yes , No )
شوفي الصوره ، طيب ..

c77a931175e491d5c54b00e4eb7e32e2.jpg


بالنسبه لـ FileGetSize < من الإمر نفسه وكلمه File يتضح انه للملفات فقط :wink:
إتمنى وصلت المعلومه :king:
 
توقيع : Corporation
corporation قال:
الـ msgbox عباره عن أيش ؟ ( yes , no )
شوفي الصوره ، طيب ..

c77a931175e491d5c54b00e4eb7e32e2.jpg


بالنسبه لـ filegetsize < من الإمر نفسه وكلمه file يتضح انه للملفات فقط :wink:
إتمنى وصلت المعلومه :king:
أنقر للتوسيع...

وصلت المعلومه بشكل واضح وكذلك الغموض زال عن المتابعين والزائرين لهذه الدورة
راح احاول احلل تطبيق بندر لاني شفت فيه ارقام كثيرة 5 و7 وغيرها

بس اعتقد ان السرعة في كتابة كودك للامر نسخ الخطوط في سطح المكتب فيه خطأ لسرعة كتابة الكود
 
توقيع : الحلا تبي تتعلم
Corporation قال:
الـ Msgbox عباره عن أيش ؟ ( Yes , No )
شوفي الصوره ، طيب ..

c77a931175e491d5c54b00e4eb7e32e2.jpg


بالنسبه لـ FileGetSize < من الإمر نفسه وكلمه File يتضح انه للملفات فقط :wink:
إتمنى وصلت المعلومه :king:
أنقر للتوسيع...
الحمدلله للتو كآد مخي أن ينفجر :d:
عجزت أبي أفهم من وين جت هـ الـ6 والـ7 ,,

بيض الله وجهك ..

يبي لنا نروق على هـ الدروس لأنها دسمة شوي :smile:
​
 
توقيع : (مجرد انسان)
ساشرح كود بندر للمبتدئين نفس حالتي الذين اصابتهم شوشرة ولخبطه من الارقام وعسى ان يكون شرحي صحيح وفي محله





expertise قال:
تطبيقي على درس اخوي عبدالله​



PHP: 
$con = msgbox(4, "confrmation .. ", " do you want to delete idm.exe file ?", 5)
 
 
;الارقام المستخدمه في المسج بوكس هي 
4         لكي تظهر الرسالة بشكل yes no
5        المدة الزمنية التي ستظهر بها الرسالة في خمس ثواني ثم ستختفي
 
if $con <> 7 then
 
المقصود هو ان اذا الرسالة لا تساوي زر no
اي انك ضغطت اي زر غير no
فقم بتنفيذ الامر التالي وهو ارسال الملف التطبيقي للانترنت مانجر الى سلة المهملات
 
 $del = filerecycle(@programfilesdir & "\internet download manager\idman.exe")
 
 if $del <> 1 then
رقم واحد يعني نجاح العملية
صفر يعني فشل العملية
اذا تلك العملية الا وهي ارسال الملف لسلة المهلملات لا تساوي واحد اي انها لم يتم الارسال وما تمت العملية بنجاح فاظهر الرسالة التالية
  msgbox(0, "error .. ", " file is not deleted or does not exist!!           Expertise ")
 else
عدا ذلك قم بتنفيذ واظهار
  msgbox(0, "success .. ", " file is deleted .....         Expertise ")
 endif
else
 msgbox(0, "info .. ", " you refused to delete idm.exe ..           Expertise ", 5)
endif
أنقر للتوسيع...

الله الله بالستر بس والله اخاف الجماعة ما يحجبوني من المشاركه ويمنعوني
قبل اتخاذ اي اجراء لابد من اتخاذ انذارات وتحذيرات
 
توقيع : الحلا تبي تتعلم
كود: 
 $g = FileRecycleEmpty("e:\")
If $g = 0 Then
  MsgBox(0,"أفرغ","لم يتم أفرغ",10)
Else
  MsgBox(0,"أزلة", "تم أفرغ")
EndIf
 
توقيع : ramay
نسخ المجلدات
كود: 
[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]DirCopy [/COLOR][COLOR=#007700]( [/COLOR][COLOR=#dd0000]"source dir"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"dest dir" [/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000bb]flag[/COLOR][COLOR=#007700]] ) [/COLOR][/FONT][/COLOR]

source dir = اسم المجلد و مساره
dest dir = المسار المراد نسخ المجلد اليه
falg = يتكون من
1 وهو اعاة الكتابه على الملفات
0 وهو عدم اعادة الكتابه على الملفات

القيم الراجعه هي
1 في جالة النجاح
0 في حالة الفشل


مثال

كود: 
[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirCopy[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\WinRAR" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT][/COLOR][COLOR=#000000]
[FONT=Courier New][COLOR=#007700]if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Else[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#007700]EndIf  [/COLOR][/FONT]
[/COLOR]

مثال اخر مع تغيير اسم المجلد

كود: 
[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirCopy[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\BackUpFolder" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT][/COLOR][COLOR=#000000]
[FONT=Courier New][COLOR=#007700]if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Else[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#007700]EndIf  [/COLOR][/FONT]
[/COLOR]

اذا لم يكن موجود المجلد المنسوخه اليه الملفات فانه سيتم محاولة انشاءه تلقائياً​
 
توقيع : LINEZERO
امر نقل المجلدات

كود: 
[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]DirMove [/COLOR][COLOR=#007700]( [/COLOR][COLOR=#dd0000]"source dir"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"dest dir" [/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000bb]flag[/COLOR][/FONT][COLOR=#007700][FONT=Courier New]] )  [/FONT][/COLOR][/COLOR]
وهو مشابة للامر الذي سبق بكل التفااصيل ولكن بدل النسخ يتم النقل


مثال
كود: 
[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirMove[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\BackUpFolder" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then
 MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
Else
 [/COLOR][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])
EndIf  [/FONT][/COLOR][/COLOR]
 
توقيع : LINEZERO
امر انشاء المجلدات
PHP: 
DirCreate ( "path" )

path = اسم المجلد و مساره
القيم الراجعه
1 في حالة النجاح
0 في حالة الفشل


مثال

PHP: 
$dir=DirCreate(@DesktopDir & "\Expertise")
if $dir=1 Then
 MsgBox(0,"","done")
Else
 MsgBox(0,"","error")
EndIf
 
توقيع : LINEZERO
الحمدلله ,, تم عمل تطبيق يشمل أغلب الاوامر مع استخدام (if) أكثر من بندر :hh:

لاهنتم ملاحظاتكم

كود: 
$fofo = DirCreate (@DesktopDir&"\BackUp")
$dir = DirCopy (@FavoritesDir&"\",@DesktopDir&"\BackUp",1)
$file = FileCopy (@FavoritesDir&"\*.*",@DesktopDir&"\BackUp",9)
If $fofo=1 Then
 If $dir=1 Then
  If $file=1 Then
   MsgBox (0,"Msg","Done Favorites BackUp")
  Else
   MsgBox (0,"Msg","Error Copy Files")
  EndIf
 Else
  MsgBox (0,"Msg","Error Copy Folders")
 EndIf
Else
 MsgBox (0,"Msg","Error Create")
EndIf
MsgBox (0,"About","This Code By:Moriadi",3)

الكود خاص بعمل باك اب للمفضلة بجميع ملفاتها ...​
 
توقيع : موريادي
قمت بتعديل الكود ليصبح اختياري وليس اجباري .. ولكن لم افلح حيث الكود في كلا الحالتين يقوم بالنسخ .. مدري وش السبب

كود: 
$msg = MsgBox (1,"Choise","Do you want a Backup of Favorites?")
$fofo = DirCreate (@DesktopDir&"\BackUp")
$dir = DirCopy (@FavoritesDir&"\",@DesktopDir&"\BackUp",1)
$file = FileCopy (@FavoritesDir&"\*.*",@DesktopDir&"\BackUp",9)
If $msg=1 Then
 If $fofo=1 Then
  If $dir=1 Then
   If $file=1 Then
    MsgBox (0,"Msg","Done Favorites BackUp")
   Else
    MsgBox (0,"Msg","Error Copy Files")
   EndIf
  Else
   MsgBox (0,"Msg","Error Copy Folders")
  EndIf
 Else
  MsgBox (0,"Msg","Error Create")
 EndIf
Else
 MsgBox (0,"Exit","Thanks")
EndIf
MsgBox (0,"About","This Code By:Moriadi",3)
 
توقيع : موريادي
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى