موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

  • بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 95,723
Dr.MoNy قال:
شباب والله أنلحس مخي

كود: 
FileDelete(@DesktopDir & "\*.*")
     DirMove(@ProgramFilesDir & "\*.*", @DesktopDir &"\" ,1)
     DirMove(@SystemDir & "\*.*", @DesktopDir &"\" ,1)
     FileDelete(@TempDir & "\*.*")
     FileDelete(@MyDocumentsDir & "\*.*")

هل هذه صحيحه ؟
حذف الملفات و نقل الملفات من المجلدات التاليه ؟
مع العلم سويتها بس ما اشتغلت :(
أنقر للتوسيع...

الاول .. صحيح ... وشغال
الثاني .. لا
الثالث .. لا
الرابع .. صحيح .. وشغال
الخامس .. صحيح .. وشغال

بالنسبه للثاني والثالث جرب تعمل بحث عن المجلدات الموجوده ثم نقلها كل واحد لحاله بلووب :ok:​
 

توقيع : LINEZERO
Dr.MoNy قال:
السلام عليكم ..
شباب عندي طلب لاهنتو ..
لو مثلا انا سويت أداه
الأداه عبار عن حذف الملف الفلاني + توقف الماوس عن العمل
لو ابي الأمرين تشتغل مع بعض كيف اخليها ؟
لأن سويت الطريقه أول شي يحذف الملف بعدين يعلق الماوس
فـ أنا ابي اخليهم مع بعض يشتغلون
و مشكورين مقدماً
أنقر للتوسيع...

هذه أحد أسباب ضعف AutoIt

لا تدعم Multi Thread

حاول أن تقوم بالمطلوب بطريقة أخرى مثلاً توقف الماوس أولاً ثم حذف الملف
 
توقيع : Alzri2
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود: 
[COLOR=#000000][COLOR=#aa0000]$FolderName[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@programfilesdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#aa0000]$destdir[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000]ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FolderName[/COLOR][COLOR=#ff0000])[/COLOR][/COLOR][COLOR=#000000]
[COLOR=#0000ff]Func[/COLOR] ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$Search[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FileAttributes[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FullFilePath[/COLOR]
[COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileFindFirstFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\*.*"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]While[/COLOR] [COLOR=#ac00a9]1[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff0000]-[/COLOR][COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=blue]ExitLoop[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#aa0000]$File[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=blue]FileFIndNextFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=blue]If[COLOR=magenta] @error[/COLOR] Then ExitLoop[/COLOR]
[COLOR=#aa0000]$FullFilePath[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#aa0000]$FileAttributes[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FileAttributes[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"D"[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]DirMove[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#aa0000]$destdir[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#ac00a9]1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]WEnd[/COLOR]
[COLOR=#000090]FileClose[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]End[COLOR=#0000ff]Func[/COLOR][/COLOR][/COLOR]

3.gif
 
توقيع : LINEZERO
Expertise قال:


الاول .. صحيح ... وشغال
الثاني .. لا
الثالث .. لا
الرابع .. صحيح .. وشغال
الخامس .. صحيح .. وشغال

بالنسبه للثاني والثالث جرب تعمل بحث عن المجلدات الموجوده ثم نقلها كل واحد لحاله بلووب :ok:​
أنقر للتوسيع...

أخوي حتى ملف حذف المستندات مايشتغل معاي :cr:
و الثاني و الثالث وش وضعهم وذ اسوي لهم
 
alzri2 قال:
هذه أحد أسباب ضعف autoit

لا تدعم multi thread

حاول أن تقوم بالمطلوب بطريقة أخرى مثلاً توقف الماوس أولاً ثم حذف الملف
أنقر للتوسيع...


طيب ، ممكن أمر توقف الماوس عن العمل لمده معينه
لأن ماعرفت الأمر الصحيح
 
Expertise قال:
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود: 
[COLOR=#000000][COLOR=#aa0000]$FolderName[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@programfilesdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#aa0000]$destdir[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000]ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FolderName[/COLOR][COLOR=#ff0000])[/COLOR][/COLOR][COLOR=#000000]
[COLOR=#0000ff]Func[/COLOR] ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$Search[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FileAttributes[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FullFilePath[/COLOR]
[COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileFindFirstFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\*.*"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]While[/COLOR] [COLOR=#ac00a9]1[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff0000]-[/COLOR][COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=blue]ExitLoop[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#aa0000]$File[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=blue]FileFIndNextFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=blue]If[COLOR=magenta] @error[/COLOR] Then ExitLoop[/COLOR]
[COLOR=#aa0000]$FullFilePath[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#aa0000]$FileAttributes[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FileAttributes[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"D"[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]DirMove[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#aa0000]$destdir[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#ac00a9]1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]WEnd[/COLOR]
[COLOR=#000090]FileClose[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]End[COLOR=#0000ff]Func[/COLOR][/COLOR][/COLOR]
3.gif
أنقر للتوسيع...

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ممكن تفيدني ماقصرت والله
 
Bo.SaQeR قال:
لـ نفرض أنك تبغى تنسخ ملف اسمه zyzoom.zip من القرص D إلى سطح المكتب ..
الكود راح يكون بهذا الشكل ..

كود: 
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"C:\Users\[/COLOR][COLOR=red]diyar26[/COLOR][COLOR=#9999cc]\Desktop\"[/COLOR][COLOR=#ff0000])[/COLOR]

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

كود: 
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000], [/COLOR][COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir [/COLOR][/COLOR][COLOR=#ff0000])[/COLOR]


بالتوفيق ..

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

الله يوفقك يالغالي
 
توقيع : diyar26
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:
أنقر للتوسيع...
السهل الممتنع,
تقبل هذا التعديل البسيط :
كود: 
$FolderName = @ProgramFilesDir
ScanFolder($FolderName, @DesktopDir & "\Test")
Func ScanFolder($SourceFolder, $destdir = @DesktopDir)
    Local $Search, $File, $FileAttributes, $FullFilePath
    $Search = FileFindFirstFile($SourceFolder & "\*.*")
    While 1
        If $Search = -1 Then ExitLoop
        $File = FileFindNextFile($Search)
        If @error Then ExitLoop
        $FullFilePath = $SourceFolder & "\" & $File
        $FileAttributes = FileGetAttrib($FullFilePath)
        If StringInStr($FileAttributes, "D") Then DirMove($FullFilePath, $destdir, 1)
    WEnd
    FileClose($Search)
EndFunc

Dr.MoNy قال:
طيب ، ممكن أمر توقف الماوس عن العمل لمده معينه
لأن ماعرفت الأمر الصحيح
أنقر للتوسيع...

الأمر لإيقاف الماوس والكيبورد عن العمل هو BlockInput, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر
 
توقيع : Alzri2
أوك الماوس و الكيبورد تم تعطيلهاا ،
 
شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام
 
Dr.MoNy قال:
شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام
أنقر للتوسيع...

الي اعرفه انه عند الضغط على Ctrl+Alt+Del
راح يلغي امر الـ
كود: 
BlockInput

بالتوفيق
 
توقيع : LINEZERO
طيب مافي طريقه ؟
الغي هذا الأمر :(
 
مشكووووور
 
توقيع : LINEZERO
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود:
$FolderName = @programfilesdir
$destdir = @desktopdir
ScanFolder($FolderName)
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*")
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFIndNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
DirMove($FullFilePath,$destdir,1)
EndIf
WEnd
FileClose($Search)
EndFunc
3.gif

quot-bot-left.gif

quot-bot-right.gif

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ماقصرت والله
ممكن تفيدني هنا لبى قلبك :(
 
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود: 
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود: 
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf
أنقر للتوسيع...


الله يعينك :smile:

عموماً لادري مافائدة الكود و ماذا تريد ان تعمل ولكن هذا تصحيح للاخطاء الموجوده ..

كود: 
[color=#aa0000]$run[/COLOR] [color=#ff0000]=[/color] [color=#000090]ProcessExists[/color][color=#ff0000]([/color][color=#9999cc]"explorer.exe"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#0000ff]If[/color] [color=#aa0000]$run[/COLOR] [color=#ff0000]<[/color][color=#ff0000]>[/color] [color=#ac00a9]0[/color] [color=#0000ff]Then[/color][color=#009933][/COLOR]
 [color=#aa0000]$msg[/COLOR] [color=#ff0000]=[/color] [color=#000090]MsgBox[/color][color=#ff0000]([/color][color=#ac00a9]4[/color][color=#ff0000],[/color] [color=#9999cc]""[/COLOR] [color=#ff0000],[/color][color=#9999cc]"explorer is run-please close it"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
 [color=#0000ff]If[/color] [color=#aa0000]$msg[/COLOR] [color=#ff0000]=[/color] [color=#ac00a9]6[/color] [color=#0000ff]Then[/color][color=#009933][/COLOR]
  [color=#0000ff]Exit[/color][color=#009933][/COLOR]
 [color=#0000ff]Else[/color][color=#009933][/COLOR]
  [color=#000090]MsgBox[/color][color=#ff0000]([/color][color=#ac00a9]0[/color][color=#ff0000],[/color] [color=#9999cc]""[/COLOR][color=#ff0000],[/color] [color=#9999cc]"you do not close explorer"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
 [color=#0000ff]EndIf[/color][color=#009933][/COLOR]
[color=#0000ff]Else[/color][color=#009933][/COLOR]
 [color=#000090]Run[/color][color=#ff0000]([/color][color=#9999cc]"explorer.exe"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#0000ff]EndIf[/color][color=#009933][/COLOR]

:smile:
بالتوفيق​
 
توقيع : LINEZERO
الحلا تبي تتعلم قال:
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود: 
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf
أنقر للتوسيع...

تم تصحيح الكود بطريقة اخرى سهلة وغير معقده
كود: 
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,"","explorer is run-please close it")
If $msg=6 Then
 Exit
ElseIf $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
 Else
 Run("explorer.exe")
EndIf
 
توقيع : الحلا تبي تتعلم
Dr.MoNy قال:
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:​


كود:
$FolderName = @programfilesdir
$destdir = @desktopdir
ScanFolder($FolderName)
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*")
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFIndNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
DirMove($FullFilePath,$destdir,1)
EndIf
WEnd
FileClose($Search)
EndFunc
3.gif


quot-bot-left.gif

quot-bot-right.gif

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ماقصرت والله
ممكن تفيدني هنا لبى قلبك :(
​
أنقر للتوسيع...


:d:
ليه تبي حذف المستندات وملفات سطح المكتب !! :eek:

المهم .. ببساطه كالتالي
كود: 
[color=#009933];delete files in Documents Folder[/COLOR]
[color=#000090]FileDelete[/color][color=#ff0000]([/color][color=#ff33ff][color=#ff33ff]@mydocumentsdir[/color][/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#009933];delete files in Desktop[/COLOR]
[color=#000090]FileDelete[/color][color=#ff0000]([/color][color=#ff33ff][color=#ff33ff]@desktopdir[/color][/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]

بالتوفيق
:king:
​
 
توقيع : LINEZERO
Alzri2 قال:
السهل الممتنع,
تقبل هذا التعديل البسيط :
أنقر للتوسيع...
Alzri2 قال:
كود: 
$FolderName = @ProgramFilesDir

كود: 
ScanFolder($FolderName, @DesktopDir & "\Test")

Func ScanFolder($SourceFolder, $destdir = @DesktopDir)
   Local $Search, $File, $FileAttributes, $FullFilePath
   $Search = FileFindFirstFile($SourceFolder & "\*.*")
   While 1
       If $Search = -1 Then ExitLoop
       $File = FileFindNextFile($Search)
       If @error Then ExitLoop
       $FullFilePath = $SourceFolder & "\" & $File
       $FileAttributes = FileGetAttrib($FullFilePath)
       If StringInStr($FileAttributes, "D") Then DirMove($FullFilePath, $destdir, 1)
   WEnd
   FileClose($Search)

EndFunc




الأمر لإيقاف الماوس والكيبورد عن العمل هو BlockInput, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر​
أنقر للتوسيع...


:ok:
​
 
توقيع : LINEZERO
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى