اسم فایل

[arvin1947]

سلام دوستان من سوال داشتم

من رو یه پروژه خیلی‌ مهم دارم کار می‌کنم که برنامه فایل‌های جدیدی ایجاد می‌کنه

من می‌خوام این فایل‌ها رو تغییر نام بدم و همه رو به اسم فایل‌های یک فلدر دیگه نم گذاری کنم



یعنی‌ فایل اولی‌ که برنامه ایجاد می‌کنه، اسمش فایل اول یه فولدر دیگه باشه

اگه کسی‌ بتونه کمکم کنه ممنون میشم

[just4froum]

من رو یه پروژه خیلی‌ مهم دارم کار می‌کنم

انشاالله که ویروس نیست .

من دقیقا نفهمیدم چی می خوای.

الان مشکلت کجاست ؟ توی نامگذاریه ؟ توی پیدا کردن اسم فایل ؟ توی ساختن فایل جدید ؟

[arvin1947]

من می‌خوام label۱.caption مساوی اسم فایل سوم یک دایرکتوری باشد

[arvin1947]

Dim fso As New FileSystemObject
Dim fol As Folder
Dim i As Integer

Set fol = fso.GetFolder("C:\")
For i = 0 To fol.Files.Count
Debug.Print fol.Files(i).Name
Next i
it is not worrking !!!

[just4froum]

بفرمایید :

Dim Path As String: Path = "C:\"
Dim File As String

File = Dir(Path)
File = Dir
File = Dir

Label1.Caption = File