VB6.0基础创建一个以当前年月日命名的文件夹

最新推荐文章于 2022-06-01 23:15:24 发布

转载最新推荐文章于 2022-06-01 23:15:24 发布 · 724 阅读

2 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/zhichengjiu/blog/3073962

文章标签：

#markdown

本文介绍如何使用Visual Basic 6.0精简版在Windows10 x64系统中根据当前日期创建指定目录。代码演示了检查目标文件夹是否存在，并在不存在时创建该文件夹的方法。

  IDE : Visual Basic 6.0精简版
   OS : Windows 10 x64
typesetting : Markdown
     blog : my.oschina.net/zhichengjiu
    gitee : gitee.com/zhichengjiu

GUI

code

Private Sub Command1_Click()

Dim d As String

d = Format(Now(), "yyyy-mm-dd")

'如果文件夹没有存在那么，就创建。
'如果存在了就不创建了
If Dir("D:" & "\dir-demo-" & d, vbDirectory) = "" Then
    MkDir "D:" & "\dir-demo-" & d
End If

End Sub

result

resource

[ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation
[ .NET ] dotnet.microsoft.com
[ 平台 ] www.oschina.net
[ 平台 ] gitee.com

感谢帮助志成就的人们。
VB6.0已经过时，想深入学习它的话，还望三思而后行。
喜欢Windows系统的同学，可以了解一下 .NET 和 .NET Core。
该博文仅可用于测试与参考。

转载于:https://my.oschina.net/zhichengjiu/blog/3073962