PDA

نسخه کامل مشاهده نسخه کامل : سریعا به کمک احتیاج دارم !!


ASUS POWER
14-09-2007, 12:44
من یه لیست دارم (list 1 ) که پر از آدرس فایل های dll هست . می خواستم یه کاری کنم که تمام این فایل ها رو به یه آدرس جدید کپی کنم . چه طور ؟:40:
Alirezanet
15-09-2007, 03:38
میتونی از یه حلقه استفاده کن و تک تک فایل هارو کپی کن
خواستی برات کد مینویسم ولی شرمنده الان خوابم میاد .. تا فردا ....
خبرم کن
ASUS POWER
15-09-2007, 09:39
میتونی از یه حلقه استفاده کن و تک تک فایل هارو کپی کن
خواستی برات کد مینویسم ولی شرمنده الان خوابم میاد .. تا فردا ....
خبرم کن

حلقه ؟ : for ... to ... do ؟
301
16-09-2007, 17:33
سلام
اگه منظورت کپی کردن فایل هایی که آدرسشون تو لیست هستش به یه مسیر خاصه میتونی از کد زیر استفاده کنی

dim i as integer
for i=0 to list1.listcount-1
filecopy list1.list ( i ) , "d:\" + (InStrRev ( list1.list ( i ) , " \ " , len ( list1.list ( i ) )
next i

با دستور file copy فایل رو کپی مس کنیم که قسمت اولش مسیر مبدا هستش و قسمت دومش مسیر مقصدشه. با instrrev یه متنی رو تو یه متن دیگه از آخر پیدا می کنیم که ما اولین \ رو تو لیستمون پیدا میکنم تا بتونیم نام فایلمونو از مسیر جدا کنیم.
با + هم نام فایل رو به مسیر جدیدمون اضافه میکنیم (اینجا درایو d هستش).
با len هم تعداد کل کارکتر ها رو تو کل مسیر پیدا میکنیم تا بتونیم از آخر مسیر رو جستجو کنیم.
متوجه شدی ؟
امیدوارم تونسته باشم کمکت کنم.
ASUS POWER
17-09-2007, 08:29
بله متوجه شدم ممنون !