Printable View
یه پروژه ای بهم سپردن که باید یه فولدر را کنترل کنم و اگه یک سری فایل داخل آن فولدر باشه و اگه آن فایلها در حال Edit نباشن نام آنها را در دیتابیسم ذخیره کنم.
توضیح اینکه فولدر ثابت است. اما فایلهای داخل آن نه تعدادشان و نه نامشان ثابت نیست.
دو سوال را یک جا می پرسم چون هر دوشون به هم ربط دارن
1) تعداد ، نام و سایز فایلهای یک Folder را بدست بیارم.
2) تشخیص بر روی تک تک فایلهای داخل فولدر که آیا فایل در حال Edit هست یا نه.(محتویات فایلها نیز متغییر هستند).
لطفا راهنماییم کنین
سلام
منظور از در حال اديت هست چيه؟ يعني فايل مثلا در ورد باز شده ؟
این کارا بر روی شبکه انجام میشه شاید تو همون لحظه که من دارم از فایل استفاده میکنم کسه دیگه ای اطلاعات دیگه ای به آن اضافه یا کم میکنه که اگه من این حالت را بدونم نباید کاری به فابل داشته باشم.(کاربر دیگه ای فایل را ویرایش میکنه)نقل قول:
سلام
با اين تابع ميشود مشغول بودن فايل را چك كرد :
براي اطمينان روي چند نوع فايل امتحان كنيد.کد:function IsFileInUse(fName : string) : boolean;
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then exit;
HFileRes :=
CreateFile(pchar(fName),
GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0) ;
Result := (HFileRes = INVALID_HANDLE_VALUE) ;
if not Result then
CloseHandle(HFileRes);
end;
+
مجموعه DiskControls يك كامپوننت با نام dcFolderMonitor دارد كه براي مانيتور كردم فولدر مي توانيد از آن استفاده كنيد.
برای فایل اجرایی که در حال اجرا بود جواد داد ولی برای یه فابل متنی از نوع txt که باز بود جواب نداد. متاسفانه نیاز من هم برای فایلهای متنی از نوع txt است. از توجهتون ممنونم.نقل قول:
خب فکر کنم کامپوننتShellChangeNotifier می تونه کمکتون کنه