Fa تقسیم شدن برنامه در پوشه ها

[Seven Soft]

سلام بر اساتید
ما یه برنامه داریم که در زمان Runtime باید موقعیت خودش رو بررسی کنه و بعد یه کپی از خودش بگیره بریزه توی یه درایوی مثلا D
و اونجا هم پوشه هایی که موجوده رو شناسایی کنه و بعد از خودش یه کپی توی پوشه هایی که شناسایی کرده بریزه

دوستان اگر می تونید راهنمایی کنید...
ممنون.

 

[MahmoodM30]

خوب دوست عزیز برای کپی فایل میتونید از پلاگین MiscY و دستور خود MMB استفاده کنید و پوشه هارم از قبل خودتون مسیرش رو مشخص

کنید یا قبل از کپی ایجاد کنید.

اینم کد کپی فایل با دستور خود MMB

SysCommand("CopyFile","<SrcDir>\Myfile.txt,<SrcDir>\D:\MyFolder\Myfile.txt")

 

[Seven Soft]

جناب شما متوجه منظور من نشدید...
ببینید برنامه ی ما مثل ویروسه...
ولی ویروس نیست... یه برنامه ی کمکیه...
اولا باید موقعیت خودش رو شناسایی کنه که این رو شما نادیده گرفتید!!!!
دوما ما نباید براش تعیین کنیم که پوشه هایی که مثلا توی درایو e یا d هست اسمشون چیه...!!!
برنامه خودش باید اسم پوشه های اطرافش رو شناسایی کنه و یک کپی از خودش تهیه کنه بریزه توی اون پوشه ها...
من خودم طریقه ی کپی کردن فایل ها رو توی بیلدر بلدم... اما قصدم کپی فایل ها یا فولدرها نیست...!
همه ی کارها توسط خود برنامه باید انجام بگیره که ما باید براش تعیین کنیم...
ممنون.

 

[nevercom]

[SIZE=2]Path$ = <[/SIZE][SIZE=2][COLOR=#0000FF]SrcDir[/COLOR][/SIZE][SIZE=2]> + [COLOR=Blue]CBK_AppFileName[/COLOR][/SIZE]

این کد مسیر فایل اجرایی رو برمیگردونه.

برای تشخیص پوشه ها هم از پلاگین Foldy یا Plugy استفاده کنید.

 

[Seven Soft]

برای تشخیص پوشه ها هم از پلاگین foldy یا plugy استفاده کنید.

می شه یه نمونه بزارید...
البته اینجوری که برنامه پوشه ها رو تشخیص بده و بعد از خودش یه کپی تهیه کنه بریزه توشون...

 

[MahmoodM30]

جناب شما متوجه منظور من نشدید...
ببینید برنامه ی ما مثل ویروسه...
ولی ویروس نیست... یه برنامه ی کمکیه...
اولا باید موقعیت خودش رو شناسایی کنه که این رو شما نادیده گرفتید!!!!

ممنون.

بنده کاملا متوجه منطور شما شده بودم و یه راهنمایی رو هم کردم درضمن یجور نوشتی نادیده گرفتید!!!! انگاری باید من برات همچین چیزی درست میکردم که نکردم!

 

[Seven Soft]

!!!!!!!!
آقا ما که دعوا نداریم که ...
ما یه سوال پرسیدیم...
شما یه قسمتیش رو جواب دادین...
ولی به نظر من یا جواب ندین یا اگر جواب می دین کامل جواب بدین مثل جناب nevercom ...
نمی دونم شما چجوری شدین کاربر فعال!

 

[nevercom]

اگر کد زیر رو در Page Start برنامه قرار بدید، برنامه خودش رو در تمام Subfolderها کپی میکنه و بسته میشه، درواقع فرم برنامه نمایش داده نمیشه:

DestFileName$ = [color=#800000]'App.exe'[/color] 
SourceFile$ = <[color=#0000FF]SrcDir[/color]> + CBK_AppFileName 
InputDir$ = <[color=#0000FF]SrcDir[/color]> 
ListFile$ = [color=#800000]'<Embedded>\list.txt'[/color] 
Param$ = [color=#800000]'WAIT,HIDE /C DIR "'[/color] + InputDir$ + [color=#800000]'" /A:D /B /O:N /s > "'[/color] + ListFile$ +[color=#800000]'"'[/color] 
[color=#000090][b]Run[/b][/color]("cmd.exe","Param$") 
NumOfLines = [color=#000090][b]NOL[/b][/color](ListFile$) 
[color=#0000FF]For[/color] i=[color=#ff0000]1[/color] [color=#0000FF]To[/color] NumOfLines 
  Path$ = [color=#000090][b]StrFromFile[/b][/color](ListFile$,i,[color=#ff0000]1[/color]) + [color=#800000]'\\'[/color] + DestFileName$ 
  [color=#000090][b]SysCommand[/b][/color]("CopyFile","SourceFile$,Path$") 
[color=#0000FF]Next[/color] i 
Param$ = [color=#800000]'WAIT,HIDE /C DEL /Q "'[/color] + ListFile$ + [color=#800000]'"'[/color] 
[color=#000090][b]Run[/b][/color]("cmd.exe","Param$") 
[color=#000090][b]Exit[/b][/color]()

 

[MahmoodM30]

!!!!!!!!
آقا ما که دعوا نداریم که ...
ما یه سوال پرسیدیم...
شما یه قسمتیش رو جواب دادین...
ولی به نظر من یا جواب ندین یا اگر جواب می دین کامل جواب بدین مثل جناب nevercom ...

من یه راهنمایی کردم که خودت بری بسازی و یه چیزایی رو یاد بگیری والا ساختن همچین چیزی که شما میخوایی چند دقیقه بیشتر طول نمیکشه

نمی دونم شما چجوری شدین کاربر فعال!

من به خاطر فعالیت و راهنمایی ها و کمک هایی که به امثال تو کردم شدم کاربر فعال

 

[nevercom]

لطفاً فقط در مورد موضوع تاپیک صحبت بشه، ممنون