قراردادن متغیر در مسیر فایل

[amin_2000]

سلام

من یه سوال دارم اگه کسی بلده لطفا جواب بده

من میخوام یه متغیر توی مسیر فایل قرار بدم به این صورت

a$ = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
If fso1.FolderExists(a$) Then
Exit Sub
Else
fso1.CreateFolder (a$)
Open "a$\por.txt" For Output As #1
End If

پوشه رو ایجاد می کنه ولی اون فایل txt رو نمیسازه من باید چکار کنم؟؟؟

[amin_2000]

کسی نیست جواب منو بده؟؟؟
خیلی ضروریه

[Dolphin 7]

سلام

من یه سوال دارم اگه کسی بلده لطفا جواب بده

من میخوام یه متغیر توی مسیر فایل قرار بدم به این صورت

a$ = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
If fso1.FolderExists(a$) Then
Exit Sub
Else
fso1.CreateFolder (a$)
Open "a$\por.txt" For Output As #1
End If

پوشه رو ایجاد می کنه ولی اون فایل txt رو نمیسازه من باید چکار کنم؟؟؟

به جاي اين :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

از اين استفاده کن :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[amin_2000]

به جاي اين :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

از اين استفاده کن :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون از اینکه جواب دادی ولی این جوابش به صورت 2011-6-15por در میاد
من میخوام تو پوشه a$ فایل por.txt درست بشه

[amin_2000]

دوستان جوابمو از انجمن barnamenevis.org گرفتم

Open a$ & "\por.txt" For Output As #1

به جای:

a$ = Year(Now) & "-" & Month(Now) & "-" & Day(Now)

می تونید از فرمت زیر استفاده کنید:

a$ = Format$(Now, "YYYY-MM-DD")