六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB批量修改目录内所有的图片名字

    日期:2019/10/20 16:08:04来源分类:编程开发

    VB批量修改目录内所有的图片名字,自己还可以扩展修改其他后缀

    不多说代码如下: =====================================================================

    Private Sub Command1_Click()
    d = Dir(App.Path & "\*.jpg")
    n = Format(Now(), "yymdsHhNnSs")
    Do Until d = ""
        If d <> n & ".jpg" Then Name App.Path & "\" & d As App.Path & "\" & n & ".jpg"
        n = n + 1
        d = Dir
    Loop
    Label1.Caption = "操作完毕"
    End Sub

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3906.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员