تکرار کپی فایل در درایو

[sabair]

به نام خداوند دوست
چگونه می توان فایل را در تمام درایو کپی کرد وهر 30 ثانیه یک بار تکرار شود
باتشکر:تشویق:

[zerobit-ltd]

برای کپی فایل می تونی از تابع CopyFile که از توابع API هست، استفاده کنی.
اگر منظورت اینه که تو تمام فولدرای درایو کپی شه، بازم باید با توابع API فولدرای موجود تو درایو رو به ترتیب تا آخر پیمایش کنی و تو همشون فایلو کپی کنی.
برای تکرار این کار تو پریود خاص زمانی هم می تونی از یه Timer استفاده کنی.

[sohrab o]

کار خاصی نداره کجاشو موندی

[sohrab o]

همون طور که دوستمون گفتن ، همچنین میتونی از دستور FileCopy استفاده کنی

[sohrab o]

همون طور که دوستمون گفتن ، همچنین میتونی از دستور FileCopy استفاده کنی

[oVERfLOW]

ای شیطون رفتی تو کار ویروس ؟!!

[sabair]

نه کار دیگری دارم کمی کامل تر توضیح دهید

[sabair]

سورس آن را دارید

[zerobit-ltd]

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
.
.
.
.
.
Dim RetVal As Long
RetVal = CopyFile("Source File Path", "Destination File Path", 0)
If RetVal = 0 Then
MsgBox "Copy Fail"
Else
MsgBox "Copy Successful"
پارامترای اول و دوم CopyFile که توضیح نمیخوان. اما پارامتر سوم؛ اگر 0 باشه فایل مبدا رو تو مقصد کپی می کنه، حتی اگه فایل قبلا تو مقصد موجود باشه. تاییدی هم از کاربر نمی گیره. ولی اگر 1 باشه و فایل مبدا تو مقصد باشه، عملیات کپی fail می شه.
return value های تابع هم که مشخصه. 0 یعنی fail، غیر 0 هم یعنی successful.