RT代码如何写?
比如我想要在 E:\STUDY 这个文件下新建一个 子文件夹。
VB中怎么写代码?
MKDIR "E:\STUDY\你要建立的文件夹名称"
新建文件夹的名字是以当前系统的年月命名的,例如文件夹名格式为:200907,200908 ..等等,程序中要存储一些图片,要求把这些图片存在相应的文件夹中,这些图片也是以系统时间命名的,
我的程序代码:
Dim fso
Dim folder_month
Dim folder_year
folder_year = Year(Date)
folder_month = Month(Date)
Set fso = CreateObject("Scripting.filesystemobject") ‘运行到该句时如果文件夹已经存在的话,会出现错误,如何实现如果该月份的文件夹已经存在就不在执行新建语句,等新一月份开始时再新建一个文件夹
fso.CreateFolder (App.Path & "\" & folder_year & folder_month)
SavePicture Picture3.Image, App.Path & "\" & folder_year & folder_month & "\" & Format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
问题补充:例如图片名是2009_0721_1702_41,该图片就存入200907