ساخت یک پوشه با vfp [بایگانی]

هادی-محمد

شنبه 10 آذر 1386, 16:49 عصر

با سلام
من می خواهم با استفاده از یک کلید که در یک فرم قرار دارد یک پوشه در مسیر c:\bank ایجاد کنم (مسیری خارج از مسیر نصب برنامه vfp) و با یک کلید دیگر همان پوشه ایجاد شده را پاک (حذف ) نمایم از چه دستوراتی باید استفاده نمایم لطفا راهنمائی بفرمائید.

mehran_337

شنبه 10 آذر 1386, 17:22 عصر

دستور MD dirName و RD dirName به ترتیب برای ساختن و حذف است که به جای dirName مسیر خود را وارد کنید

هادی-محمد

یک شنبه 11 آذر 1386, 16:29 عصر

با تشکر از مهران عزیز
یک سئوال دیگر هم دارم بعنوان فرض من در یک پوشه یک بانک را ذخیره کردم و در پوشه دیگر چیزی ذخیره نکرده و پوشه خالی است در یک فرم دو لیبل قرارداده ام می خواهم بین هر لیبل با هریک از این پوشه ها ارتباطی بر قرار کنم - پوشه اول با لیبل اول و پوشه دوم با لیبل دوم - که اگر پوشه اول پر بود (در آن بانکی ذخیره بود ) رنگ لیبل اول تغییر کند ( مثلا از سفید به قرمز ) و اگر پوشه دوم خالی بود رنگ لیبل دوم تغییر نکرده و همچنان سفید باقی بماند .
آیا برای اینکه مشخص شود پوشه ای خالی است یا نه چه دستوراتی را می توان نوشت؟

mehran_337

یک شنبه 11 آذر 1386, 17:30 عصر

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

if fildname=.t.
thisform.lable1.backcolor =rgb(255,0,0)
else
thisform.lable1.backcolor = rgb(255,255,255)
endif

راه دوم توسط تابع adir() تشخیص بدهی آیا درون پوشه فایلی وجود دارد یا خیر ؟
از help برای مشاهده پارامترهای این تابع کمک بگیرید

kia1349

دوشنبه 12 آذر 1386, 13:41 عصر

راه دیگه استفاده از fso(file system object) 1 است.اون عدد یک هم هیچی نیست میخواستم پرانتز درست بشود
اگر در اینترنت جستجو کنید راهکار استفاده کامل از آن را خواهید یافت