گرفتن دستور کپی از تکست باکس

[xrezax]

دوستان من یک تکست دارم و یک کامند می خوام وقتی توی تکست بنویسم FileCopy و روی کامند کلیک کنم کد زیر اجرا بشه و برنامه توی درایو D کپی بشه.

کدو من اینجور نوشتم


"Text1 App.Path & "\" & App.EXEName & ".exe", "D:\1.exe


اما کار نداد. دوستان راه حلی بلدین ؟؟؟ می خوام FileCopyتوی تکست نوشته بشه نه توی سورس. امیدوارم منظورم واضح باشه.

[mr-adler]

با سلام دوست من کد های زیر رو تو یه کامند بنویس:

Private Sub Command1_Click()
If Text1.Text = "filecopy" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\1.exe"
Else
MsgBox "error"
End If
End Sub


من هم یه زمانی تو این قسمت کار مشکل داشتم . اول برنامه رو کمپایل کن بعد روی کامند کلیک کن . دلیلش اینه که app.path مسیر فعلی برنامه رو نشون میده وقتی که شما برنامه رو کمپایل نکردی مسیری وجود نداره که نشون بده....

موفق باشی:چشمک:

[xrezax]

دوست من منظور منو متوجه نشدین.
نمی خوام توی سورس اسمی از FileCopy بیاد و برنامه دستورو از تکست بخونه

[mr-adler]

اگه منظور شما اینه نه من کدی سراغ ندارم ....
به هر حال شما میخواهید با زدن دکمه کامند فایلتون کپی بشه و برای این کار باید از توابع مرتبط کپی فایل filecopy یا حتی copyfile استفاده کرد . به نظر من راه دیگه ای نداره .:متفکر: اما از اساتید محترم اگه کسی جوابو میدونه بگه تا ما هم یاد بگیریم
ممنونم....:قلب:

[xrezax]

دوست کسی زاه حل داره ممنون میشم اینجا بگه

[M.T.P]

دوستان من یک تکست دارم و یک کامند می خوام وقتی توی تکست بنویسم FileCopy و روی کامند کلیک کنم کد زیر اجرا بشه و برنامه توی درایو D کپی بشه.

کدو من اینجور نوشتم


"Text1 App.Path & "\" & App.EXEName & ".exe", "D:\1.exe


اما کار نداد. دوستان راه حلی بلدین ؟؟؟ می خوام FileCopyتوی تکست نوشته بشه نه توی سورس. امیدوارم منظورم واضح باشه.



دوست من این کار شدنی نیست.
هدفتون از این کار چیه؟ میخواین برنامه آموزشی درست کنید؟

[xrezax]

آنتی ویروس من به کلمه FileCopy گیر میده. راه حلی دارین ممنون میشم ؟

مثلاً تیکه تیکه کردن این کلمه FileCopy یا تغییر دادنش با یک کلمه دیگه

[M.T.P]

مقصد کپی کجاست؟ درایو ویندوز؟

از Fso استفاده کنید ببینید چی میشه:
رفرنس Microsoft script runtime

Dim Fso As New FileSystemObject
fso.CopyFile

[xrezax]

یعنی هیچ راهی نداره که این FileCopy یه جور دیگه نوشت ؟؟ کد کردنی چیزی ؟؟

"FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\1.exe

[M.T.P]

یعنی هیچ راهی نداره که این FileCopy یه جور دیگه نوشت ؟؟ کد کردنی چیزی ؟؟

"FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\1.exe

چرا راهش هست...
اول بفرمایید از Fso استفاده کردید یا نه؟
دوم اینکه این دستور رو کجا نوشتید؟ احتمالا تو Form_Load ننوشتید؟ :متفکر:

[xrezax]

از fso استفاده کردم که نتیجه نداد. اگه سورسی چیزی هم داری در این رابطه بزاری واسم ممنونت میشم.
این دستورو هم توی یک کامند گذاشتم.

[mr-adler]

با سلام
روز همگی بخیر
دوست عزیز ببین این کد جواب میده یا نه؟ فکر نکنم انتی ویروس زیاد گیر بده اگه اون دو نکته ای رو که جنابM.T.P (http://barnamenevis.org/member.php?132020-M.T.P) گفتن رعایت کنی یعنی:

دوم اینکه این دستور رو کجا نوشتید؟ احتمالا تو Form_Load ننوشتید؟ :متفکر:

مقصد کپی کجاست؟ درایو ویندوز؟
کد:

Dim fso As FileSystemObject

Private Sub Command1_Click()
Set fso = New FileSystemObject
If Dir("d:\red.exe") = Empty Then
fso.MoveFile App.Path & "\" & App.EXEName & ".exe", "d:\red.exe"
Else
MsgBox "the file is moved"
End If
End Sub

عمکردشو به منم اطلاع بده . راستی اسم انتی ویروست چیه؟
موفق و پیروز باشی:چشمک:

[xrezax]

این کد کار داد . آنتی ویروس من کاسپراسکای 2012 هستش. (هنوز تست نکردم با آنتی)

من ویروس نمی نویسم و مقصدم هم درایو ویندوز نیست درایو دیگه ای .

دوستان اگه راه حلی چیزی به ذهنتون میرسه اینجا مطرح کنید ممنون میشم.

[xrezax]

دوستان چیزی به زهنتون نمی رسه ؟؟

[vbhamed]

سلام

حتي اگر FileCopy كار كنه باز هم توصيه مي كنم از همون Fso استفاده كنيد
چون هم سريعتر هست هم راحت و هم امكانات خيلي بيشتري داره
مگر اينكه واقعا دليل خاصي داشته باشيد

[mr-adler]

عرض سلام و ادب خدمت همه دوستان

مگر اينكه واقعا دليل خاصي داشته باشيد
میشه یکم توضیح بدید . ممنون:قلب:

[vbhamed]

سلام

توصيه من fso هستش
اما اين دليل خاص براي FileCopy رو شما بايد توضيح بديد نه من