کمک برای نوشتن برنامه

[EvereX]

من ممی خوام یه برنامه بنویسم که یه قسمتش باید آدرس یه پوشه را بگیره و فایل های داخلش رو به یه ÷وشه دیگه انتقال بده بعد به آخر اسم همه ی فایلهاش یه چیزی اضافه کنه !
ممنون میشم اگر کمکم کنید

[H_SH_VB]

salam
ye controle file mizari
pathesho midi be oon masiri ke mikhay azash copy koni
badesh ye halghe migiri
az 0 ta listcount-1
dakhele halghe minvisi
filecopy file1.path & "\" & file1.FileName , (destination) & file1.filename & (oonchizi ke mikhay ezafe koni)
movafagh bashi
avaze tashakoram 5 ta doaye faraj bekhon
khoda negahdar

[vbhamed]

سلام

از منوی Project گزینه References آیتم Microsoft Scripting Runtime را تیک بزنید
سپس در برنامه یک متغیر به این شکل تعریف کنید

Dim fso As New FileSystemObject


سپس با استفاده از Dir$ و یک حلقه فایلهای شاخه مورد نظر را پیمایش کنید چیزی مثل این کد

dim x$,SourceDir$,DestDir$

SourceDir="C:\windows\"
DestDir="D:\Copy\"

x=dir(SourceDir & "*.*")
do while x<>""
y= fso.GetBaseName(x) & "chizi ke bayad ezafe beshe" & "." & fso.GetExtensionName(x)


fso.CopyFile SourceDir & x, DestDir & y
fso.DeleteFile SourceDir & x, true


x=dir
loop

با این روش اگر فایلی مثلا با نام c:\windows\wini.ini موجود باشد و بخواهید xxx را به نام اضافه نمایید
نام جدید به این صورت در می آید

y=c:\windows\winxxx.ini

اما در روش دوست گرامی ما H_SH_VB نتیجه به این شکل است

y = c:\windows\wini.inixxx

ضمنا FileSystemObject یکی از اشیاء قدرتمند و پرسرعت مایکروسافت برای کپی، حذف و دریافت اطلاعات شاخه ها و فایلها مانند سایز، زمان ایجاد و تغییر و ... آنهاست که بسیار بهتر از FileCopy عمل می نماید