Question

vb中关于新建文件夹的问题

新建文件夹的名字是以当前系统的年月命名的，例如文件夹名格式为：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的文件夹中

Answer 1

方法1 设置On Error 错误陷阱。
方法2 先判断文件夹是否存在：

判断文件夹是否存在，可用下列语句：
dir(文件夹路径, vbDirectory) <>""
例如，要判断文件夹c:aaa是否正在，则代码如下：
if Dir("c:aaa", vbDirectory) <>"" then
msgbox"文件夹：c:aaa 存在！"
end if

Answer 2

你创建文件夹时先判断下存不存在撒,至于图片放在对应文件夹中,就是取图片的名字和文件夹对比就是了,很间单的.

Answer 3

Private Sub Command1_Click()
dirname = App.Path & "\" & Format$(Date, "yyyymm")
If Dir(dirname, vbDirectory) = "" Then MkDir dirname
SavePicture Picture3.Image, dirname & "\" & Format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
End Sub

嘿嘿很短的哦