VB.NET在Debug目录下生成年份文件夹，月份文件夹，当前日期Excel表格

CWM6364

于 2022-02-08 13:43:43 发布

阅读量484

点赞数

分类专栏： Winform 文章标签： .net wpf microsoft

本文链接：https://blog.csdn.net/HEIMENGER/article/details/122822289

版权

所用环境VS2010；WPF应用程序模板；在界面上添加一个Button控件
话不多说，直接上全部代码和注释

Imports Microsoft.Office.Interop
Imports Microsoft.Win32

Class MainWindow

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Dim CrateFile, YearPath                                                              '定义变量
        CrateFile = CreateObject("Scripting.FileSystemObject")                               '微软注册的库，用来调用系统盘的路径
        YearPath = AppDomain.CurrentDomain.BaseDirectory & "\" & Year(Now) & "年" & "数据"   '在Debug下设置年份路径，
        If CrateFile.FolderExists(YearPath) Then