Printable View
سلام
من یه سوال دارم اگه کسی بلده لطفا جواب بده
من میخوام یه متغیر توی مسیر فایل قرار بدم به این صورت
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 رو نمیسازه من باید چکار کنم؟؟؟
کسی نیست جواب منو بده؟؟؟
خیلی ضروریه
نقل قول:
به جاي اين : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از اين استفاده کن : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:Open "a$\por.txt" For Output As #1
کد:Open a$ + "por.txt" For Output As #1
نقل قول:
ممنون از اینکه جواب دادی :10::11::40: ولی این جوابش به صورت 2011-6-15por در میاد
من میخوام تو پوشه a$ فایل por.txt درست بشه:13:
دوستان جوابمو از انجمن barnamenevis.org گرفتم
Open a$ & "\por.txt" For Output As #1
به جای:
a$ = Year(Now) & "-" & Month(Now) & "-" & Day(Now)می تونید از فرمت زیر استفاده کنید:
a$ = Format$(Now, "YYYY-MM-DD")