من یه لیست دارم (list 1 ) که پر از آدرس فایل های dll هست . می خواستم یه کاری کنم که تمام این فایل ها رو به یه آدرس جدید کپی کنم . چه طور ؟.gif "N Aggressive (39)")
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام
[ + افزودن آگهی متنی جدید ]
سریعا به کمک احتیاج دارم !!
من یه لیست دارم (list 1 ) که پر از آدرس فایل های dll هست . می خواستم یه کاری کنم که تمام این فایل ها رو به یه آدرس جدید کپی کنم . چه طور ؟
میتونی از یه حلقه استفاده کن و تک تک فایل هارو کپی کن
خواستی برات کد مینویسم ولی شرمنده الان خوابم میاد .. تا فردا ....
خبرم کن
حلقه ؟ : for ... to ... do ؟
سلام
اگه منظورت کپی کردن فایل هایی که آدرسشون تو لیست هستش به یه مسیر خاصه میتونی از کد زیر استفاده کنی
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 هم تعداد کل کارکتر ها رو تو کل مسیر پیدا میکنیم تا بتونیم از آخر مسیر رو جستجو کنیم.
متوجه شدی ؟
امیدوارم تونسته باشم کمکت کنم.
بله متوجه شدم ممنون !
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)
قوانين ايجاد تاپيک در انجمن
جواب بصورت نقل قول
نوشته شده توسط Alirezanet