博图Professional创建文件，用Scripting.FileSystemObject类

最后面是代码，前面是做的时候遇到的问题描述

问题一：拼接文件路径字符串的时候，一次性把所有变量拼接在一起，我是没能成功。像“path = " D:\DATA\&Year(now)&"\"&Month(now)&"\"&Day(now).xls ”经过尝试成功方式在最后

问题二：VB的MsgBox对话框显示，MsgBox("显示内容",操作按钮,"标题")不要使用括号。习惯了C的调用方式的注意一下

应文章质量提示，水点内容，无聊可看：

        没怎么用过VB语言，也是因为在这家公司做博图画面的时候太多弹出窗为了省事，学习了一下，所以写的文章质量可能不咋地，但我感觉很适合小白读，因为我也是个小白。很多都是从网上找来的提示。像scripting.filesystemobject类还有后面接触的excel.application类。做一个东西的时候最好，最快的方式是从网上去寻找一个开始，然后再慢慢的去做，把遇到的问题解决。

        代码模块化也是懒的一种体现吧

sub CreateFile()
    On Error Resume Next
    Dim obj,path
    path = "D:\DATA\"
    Set obj = CreateObject("scripting.filesystemobject")'文件操作对象
    obj.CreateFolder path
    path = path & Year(Now) & "\"
    obj.CreateFolder path
    path = path & Month(Now) & "\"
    obj.CreateFolder path
    path = path & Day(Now)&"."&"xls"
    obj.CreateTextFile path
    If obj.FileExists(path) Then    
    MsgBox("文件创建成功")Else    
    MsgBox "请检查文件路径盘是否存在,"&path,vbOKCancel,"创建文件"
    End If
end sub