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

原创
2019/07/14 17:07
阅读数 1K

     IDE : Visual Basic 6.0精简版
      OS : Windows 10 x64
typesetting : Markdown
       blog : my.oschina.net/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。
该博文仅可用于测试与参考。
欢迎关注微信公众号:悟为生心

展开阅读全文
加载中
点击引领话题📣 发布并加入讨论🔥
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部