PDA

نسخه کامل مشاهده نسخه کامل : قراردادن متغیر در مسیر فایل


amin_2000
14-06-2011, 17:15
سلام

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

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


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
14-06-2011, 19:47
کسی نیست جواب منو بده؟؟؟
خیلی ضروریه
Dolphin 7
14-06-2011, 21:44
سلام

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

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


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
14-06-2011, 23:36
به جاي اين : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید از اين استفاده کن : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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


ممنون از اینکه جواب دادی :10::11::40: ولی این جوابش به صورت 2011-6-15por در میاد
من میخوام تو پوشه a$ فایل por.txt درست بشه:13:
amin_2000
15-06-2011, 11:06
دوستان جوابمو از انجمن barnamenevis.org گرفتم






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



به جای:


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

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


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