الحالة
مغلق و غير مفتوح للمزيد من الردود.
حبيبي مجرد انسان ...

الخطأ بسيط واحيانا يكون قاتل ان لم تنتبه له ...

كود:
$path=@DesktopDir&"\1.txt[COLOR=red]\[/COLOR]"
$A=FileExists ($path)
if $A = 1 then
    FileDelete ($path)
    msgbox ( 0,"","Done " )
ElseIf $A = 0 Then
msgBox (0,"","الملف غير موجود")
EndIf

اللون الأحمر احذفه وشوف النتيجة ...

تلميح مالفرق بين مجلد وملف​
 

توقيع : موريادي
حياك الله أخوي...

أولاً السكريبت ككل صحيح لكن في خطأ صغير وفادح ..

جرب تشيل الباك سلاش وشوف حيحذف أو لا..

هي توضع فقط للمجلدات

:d:
والله انك بطل :b:

لو انك ما رديت علي كان وقتها رآسي منفجر :d:

توني أدري عن هـ المعلومة :smile:

حبيبي مجرد انسان ...

الخطأ بسيط واحيانا يكون قاتل ان لم تنتبه له ...

كود:
$path=@DesktopDir&"\1.txt[COLOR=red]\[/COLOR]"
$A=FileExists ($path)
if $A = 1 then
    FileDelete ($path)
    msgbox ( 0,"","Done " )
ElseIf $A = 0 Then
msgBox (0,"","الملف غير موجود")
EndIf
اللون الأحمر احذفه وشوف النتيجة ...

تلميح مالفرق بين مجلد وملف​

بيض الله وجهك موريآدي :smile:


البرمجة حرف وآحد في غير مكآنه يحوس عليك الشغل كله :cr:


أبشرك ظبط السكيربت :ok:
 
توقيع : (مجرد انسان)
هههههههه ياشباب السلاش بتفرق

السلاش توضع للمجلدات فقط
اما الفايلات لايوضع لها سلاش لآن مابعدها شئ فقط الملف

دائما المجلد يتبعه السلاش لأن بعده شئ اخر مجلد اخر او ملف وهكذا
وهذه قواعد بسيطه
ولكنها مهمه جدا

ولأسف الاسكربت منفض دماغه من الموضوع ده وضعت السلاش او
لم تضع مافى خطأ كله حلاوه :d:





 
توقيع : himoScript
كود:
 $ramay = @DesktopDir&"\77"
$ty =MsgBox(68,"","ramay")
If $ty = 6 Then
$ramay22 = FileExists($ramay)
If $ramay22 = 1 Then
 MsgBox(4,"","أنه موجود هل تريد حذفه")
 EndIf
[COLOR=Red]FileDelete($ramay&"\*.*")[/COLOR]
If $ramay22 = 0 Then
 MsgBox(0,"","ërroer")
Else
 MsgBox(0,"","don")
EndIf
EndIf

ألي بالاحمر مفروض يكون داخل if

أيضاُ عبارات if عندك ملخبطة

تقدر تكتبه بشكل أفضل وتشيل الاوامر الغير مهمه..

حاول فيه مره ثانية..

:d:
 
توقيع : waget
ألي بالاحمر مفروض يكون داخل if

أيضاُ عبارات if عندك ملخبطة

تقدر تكتبه بشكل أفضل وتشيل الاوامر الغير مهمه..

حاول فيه مره ثانية..

:d:
كيف أخي أكتبه داخل if مش فهم عليك
 
توقيع : ramay
كيف أخي أكتبه داخل if مش فهم عليك

إنت الان تطلب من المستخدم يختار يحذف أو لا..

إذا إختار نعم إحذف إذا لا العكس ...

إنت ماحطيت if للتأكد من خيار المستخدم من الرسالة..
ووضعت الحذف بعدها..
الكود تبعك ملخبط .. حاول كتابته من جديد ..

إذا مازبط معك .. بنزل لك كود غداً للإيضاح ..

أنا الان راح أخرج :d:

^_^
 
توقيع : waget

تطبيق الدرس رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]

PHP:
If @OSARCH = "X86" Then MsgBox(4096, "HaTeM", "your Processor 32 bit")
If @OSARCH = "X64" Then MsgBox(4096, "HaTeM", "your Processor 64 bit")
والله تطبيقك أخوي حآتم وضح لي أشيآء ما كنت مستوعبها :b:

بس فيه ملاحظة صغيرة المفروض يصير السكيربت هكذا
كود:
If [COLOR=Red][COLOR=black]@[/COLOR]CPU[COLOR=black]Arch[/COLOR][/COLOR] = "X86" Then MsgBox(4096, "HaTeM", "your Processor 32 bit")
If @[COLOR=Red]CPU[COLOR=black]Arch[/COLOR][/COLOR] = "X64" Then MsgBox(4096, "HaTeM", "your Processor 64 bit")
:smile:

..

تطبيقي :smile:
كود:
$CPU= @CPUArch
If $CPU <> "X64" then MsgBox (64,"  ::: نوع المعالج :::","CPU is : 32 Bit ")
if $CPU = "X64" then MsgBox (64,"::: نوع المعالج :::","CPU is : 64 Bit")
الدورة ممتعة صرآحة :smile: > كفيت ووفيت كنق عبدالله :king:

بس وين الأستآذ بندر له فقدة والله :er:
عسى المآنع خير

 
توقيع : (مجرد انسان)
كود:
 $1 = @CPUArch
If $1 = "x32"  Then
MsgBox(0,""," 32 bit معالج")
Else
$2 =@CPUArch
If $2 = "x64" Then
MsgBox(0,""," @bit 64 معالج @")
EndIf
EndIf



كود:
 $1 = FileExists (@ProgramFilesDir&"\Windows Live\Messenger\")
$2 = DirCopy (@DesktopDir&"\77",@UserProfileDir&"\AppData\Local\Microsoft\Messenger\77",1)
If $1 <> 0 And $2 = 1 Then
 MsgBox(0,"","DON")
Else
 MsgBox(16,""," ERROR")  ; [SIZE=3][COLOR=red]كييف نستفيد منه أفيده حقيقية يعني بيكون ضروري تواجده  AND[/COLOR][/SIZE]
EndIf
 
توقيع : ramay
إنت الان تطلب من المستخدم يختار يحذف أو لا..

إذا إختار نعم إحذف إنت وهكذا..

إنت ماحطيت if للتأكد من خيار المستخدم من الرسالة..
ووضعت الحذف بعدها..
الكود تبعك ملخبط .. حاول كتابته من جديد ..

إذا مازبط معك .. بنزل لك كود غداً للإيضاح ..

أنا الان راح أخرج :d:

^_^
مش عرف أكتبه غير في هذه طريقة
ممكن طريقة أخره:er:
 
توقيع : ramay
MY CODE

كود:
$CPU = @CPUArch
If $CPU = "X32" Then
 MsgBox (0,"MSG","Your processor does not support 64-bit" [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"Your processor supports"&$CPU)
Else
 MsgBox (0,"MSG","Your processor supports 64-bit" [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"You Can Install Any OS On Your Computer")
EndIf

رأيك ياعبدالله ...
 
توقيع : موريادي
مش عرف أكتبه غير في هذه طريقة
ممكن طريقة أخره:er:

يسعد صبااح الطالب المجتهد :smile:

كود:
$ramay = @DesktopDir & "\Ramy.txt"
$check = FileExists($ramay)
If $check = 1 Then
 $msg = MsgBox(4, "Exist .. ", " File is Exist ... Do you want to delet it !! ")
 If $msg = 6 Then
  $delete = FileDelete($ramay)
  If $delete = 1 Then
   MsgBox(0, " Status ", " File is Deleted .. ")
  Else
   MsgBox(0, " Status ", " File is NOT Deleted .. ")
  EndIf
 Else
  MsgBox(0, " Info ", " You Choose NOT to Delete File .. ")
 EndIf
Else
 $msg = MsgBox(0, "Exist .. ", " File is NOT Exist ... !! ")
EndIf

اذا فيه شي ماهو واضح علمني :b:​
 
توقيع : LINEZERO
الموضوع بالكااامل تحت تصرف الاخ عبدالله << waget

موفقين حبايبي

وان شاء الله اسير عليكم عند الاستطااعه​
 
توقيع : LINEZERO
الموضوع بالكااامل تحت تصرف الاخ عبدالله << waget​


موفقين حبايبي​


وان شاء الله اسير عليكم عند الاستطااعه​

:ok::ok:

على راسي الاستاذ عبدالله ....

الله ييسر لك احوالك ياغالي وترجع لنا مثل أول .. :b:
 
توقيع : موريادي
تطيسق الدرس (الاستاذ) عبدالله رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]


PHP:
$path=("d:\virous")
$hatem = FileExists($path)
if $hatem =1 Then
    $Remove = DirRemove($path , 1)
    if $Remove = 1 then
        MsgBox(64,"","ok")
Else
    MsgBox(16,"","خطاء",2)
    Exit
EndIf
EndIf
:cool:اسف ماقدر كل شخص يشرح اسميه استاذ :d:


تطبيق الدرس رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]

PHP:
If @OSARCH = "X86" Then MsgBox(4096, "HaTeM", "your Processor 32 bit")
If @OSARCH = "X64" Then MsgBox(4096, "HaTeM", "your Processor 64 bit")
عساك على القوة حاتم

ملاحظة الاخ (مجرد انسان) في محلها..

إلا بقيه التطبيق وألي قبله كلها تمام :king:
This My Code

كود:
$Dir = @ProgramFilesDir
[COLOR=Red]$Dir2 = "C:\Program Files (86)"[/COLOR]
$ex = FileExists ($Dir)
[COLOR=Red]$ex2 = FileExists ($Dir2)[/COLOR]
If $ex = 1 Then
MsgBox (0,"Msg","You a have 32 Or 86 Bit")
Else
 MsgBox (0,"Msg","You a have 64 Bit")
 Exit
EndIf
....
ان شاء الله واضح ياغالي

ألي بالاحمر ما إستفدت منها في الكود بأي شيء..

بما إنك أعدت تطبيقها بالماكرو راح نعديها لك :d:


والله تطبيقك أخوي حآتم وضح لي أشيآء ما كنت مستوعبها :b:

بس فيه ملاحظة صغيرة المفروض يصير السكيربت هكذا
كود:
If [COLOR=Red][COLOR=black]@[/COLOR]CPU[COLOR=black]Arch[/COLOR][/COLOR] = "X86" Then MsgBox(4096, "HaTeM", "your Processor 32 bit")
If @[COLOR=Red]CPU[COLOR=black]Arch[/COLOR][/COLOR] = "X64" Then MsgBox(4096, "HaTeM", "your Processor 64 bit")
:smile:

..

تطبيقي :smile:
كود:
$CPU= @CPUArch
If $CPU <> "X64" then MsgBox (64,"  ::: نوع المعالج :::","CPU is : 32 Bit ")
if $CPU = "X64" then MsgBox (64,"::: نوع المعالج :::","CPU is : 64 Bit")
الدورة ممتعة صرآحة :smile: > كفيت ووفيت كنق عبدالله :king:

بس وين الأستآذ بندر له فقدة والله :er:
عسى المآنع خير


:king:
 
توقيع : waget
مش عرف أكتبه غير في هذه طريقة
ممكن طريقة أخره:er:
كود:
$ramay = @DesktopDir & "\Ramy.txt"
$check = FileExists($ramay)
[COLOR=Red]If[/COLOR] $check = 1[COLOR=Red] Then[/COLOR]
    $msg = MsgBox(4, "Exist .. ", " File is Exist ... Do you want to delet it !! ")
    [COLOR=Blue]If [/COLOR]$msg = 6 [COLOR=Blue]Then[/COLOR]
        $delete = FileDelete($ramay)
       [COLOR=Purple] If[/COLOR] $delete = 1 Then
            MsgBox(0, " Status ", " File is Deleted .. ")
        [COLOR=Purple]Else[/COLOR]
            MsgBox(0, " Status ", " File is NOT Deleted .. ")
        [COLOR=Purple]EndIf[/COLOR]
    [COLOR=Blue]Else[/COLOR]
        MsgBox(0, " Info ", " You Choose NOT to Delete File .. ")
    [COLOR=Blue]EndIf[/COLOR]
[COLOR=Red]Else[/COLOR]
    $msg = MsgBox(0, "Exist .. ", " File is NOT Exist ... !! ")
[COLOR=Red]EndIf[/COLOR]
هنا عندك مثال الاخ بندر..

ركز في عبارات if تلاحظ إنها متداخله عبارة داخل عبارة ...

العبارة بالاحمر للتحقق من وجود الملف .. حسب القيمة الراجعه لدالة FileExists

العبارة بالازرق للتحقق من إختيار المستخد في الرسالة ..

العبارة بالبنفسجي للتحقق من حذف الملف بالدالة FileDelete ..

إنتبه لendif دايم حطها في نهاية كل عبارة .. علشان لاتلخبط الكود

شوف الكود حق بندر وكودك وشوف إيش الفارق بينهم وهات تطبيق آخر

:d:
 
توقيع : waget
اخى عبد الله هذا مثال اخى على تداخل ال if اعتقد بيفيدك يرامى

تمرين على فحص هل المف x.txt موجود على سطح المكتب وعرض رساله على المستخدم هل تريد حزفه ام لا ؟
PHP:
$savepath=(@DesktopDir & "\x.txt")
$cheack = FileExists (@DesktopDir & "\x.txt")
if $cheack = 0 Then
    msgbox(0+48+524288 , "x.txt not found " ,  "file in path" &" "& $savepath &" "& ' not found '  )
    exit
Else
    msgbox(0+64+524288 ,"find file" , "file in path" &" "&  $savepath &" "& 'Exists' )
endif
$ask = msgbox (4+32+524288,"؟","هل تريد حزف الملف ؟")
if $ask= 7 Then
    Exit
Else
    $returnvar= FileDelete($savepath)
    if $returnvar = 1 then
    msgbox(0+64+524288,"نجح الحزف","تم حزف الملف بنجاح")
Else
    msgbox (0+16+524288,"error","فشل حزف الملف")
EndIf
EndIf
 
توقيع : himoScript
إنت الان تطلب من المستخدم يختار يحذف أو لا..

إذا إختار نعم إحذف إذا لا العكس ...

إنت ماحطيت if للتأكد من خيار المستخدم من الرسالة..
ووضعت الحذف بعدها..
الكود تبعك ملخبط .. حاول كتابته من جديد ..

إذا مازبط معك .. بنزل لك كود غداً للإيضاح ..

أنا الان راح أخرج :d:

^_^
أخي عبد الله أن أتعبك معي كثيرا
طيب شو بدنا نعمل بدك تتحملني
أنا رايت كود أستاذ بندر بارك الله فيه
ورأيت كود himoScript مشكور يا الغالي بارك الله فيك
لو كان ذلك ما أريد لكن أسهل بنسبه لي
على ما أعتقد
لكن أريده في نفس طريقة كودي أو قريبا منه بدون رسائل كثيرا
اريد تعديل على كودي حتى أفهم خاطئ

وهنا
إنت ماحطيت if للتأكد من خيار المستخدم من الرسالة..
ووضعت الحذف بعدها..
أنا قلت لمستخدم أنه ملف موجود هل تريد حذفه أن ضغط نعم يحذف مباشر
يعني لماذا أضع له رسالة أخر تخبرها في وجود ملف

في أنتظرك
وأشكركم جميع يا شباب
:king:​
 
توقيع : ramay
تم تعديل مشاركة لأضافة كود أخر

كود:
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 $3 = MsgBox(4,"","هل تريد حذف ملف")
EndIf
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf

كود:
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 MsgBox(0,"","ملف موجود")
Else
 MsgBox(0,"","لا يوجد ملف في هذا أسم")
Exit
EndIf
 $3 = MsgBox(4,"","هل تريد حذف ملف")
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf
 
توقيع : ramay
عساك على القوة حاتم

ملاحظة الاخ (مجرد انسان) في محلها..

إلا بقيه التطبيق وألي قبله كلها تمام :king:

انت ومجرد انسان على راسي :b:
وراح اخد بنصيحة
 
توقيع : format
يسعد صبااح الطالب المجتهد :smile:

كود:
[CENTER]$ramay = @DesktopDir & "\Ramy.txt"
$check = FileExists($ramay)
If $check = 1 Then
$msg = MsgBox(4, "Exist .. ", " File is Exist ... Do you want to delet it !! ")
If $msg = 6 Then
 $delete = FileDelete($ramay)
 If $delete = 1 Then
  MsgBox(0, " Status ", " File is Deleted .. ")
 Else
  MsgBox(0, " Status ", " File is NOT Deleted .. ")
 EndIf
Else
 MsgBox(0, " Info ", " You Choose NOT to Delete File .. ")
EndIf
Else
$msg = MsgBox(0, "Exist .. ", " File is NOT Exist ... !! ")
EndIf[/CENTER]


اذا فيه شي ماهو واضح علمني :b:​
يسعد صباحك و مسااك يا استاذ عساك تكون بأفضل حال وترجع لنا مثل الاولى
:king:​
 
توقيع : ramay
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى