Private Sub Command1_Click()Dim d As String, s As String If Dir(App.Path & "\down", vbDirectory) = "" ThenLabel1.Caption = "img目录不存在无法执行下一步"Elsed = Dir(App.Path & "\down\*.*")Open App.Path & "\d
专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]
Copyright (C)ICode9.com, All Rights Reserved.
ICode9版权所有