New Folder Wizard v2.00.808.0 简体中文汉化绿色版(批量创建新文件夹工具)

xzf

New Folder Wizard v2.00.808.0 简体中文汉化绿色版（批量创建新文件夹工具）

因 fysxq 坛友请求特汉化此小工具，如有违规请版主删除

　　New Folder Wizard 最新版是一款实用的文件夹新建软件。New Folder Wizard官方版支持 TXT 格式创建文件夹,在 TXT 文件内分行输入文件夹名，调用即可。New Folder Wizard最新版次最多支持创建 2w 个文件夹，比较遗憾的是不支持多级文件夹，软件操作简便，易于上手。

基本简介
　　New Folder Wizard软件是一款批量新建文件夹向导工具，支持多种创建方式。New Folder Wizard同时也支持 64 位系统，软件界面友好，操作非常的简单，而且它还是免安装，是一款非常实用的软件，另外New Folder Wizard需要 .NET 2.0【.net framework2.0简体中文版】的基础上运行。

软件截图

功能介绍
      New Folder Wizard 支持 TXT 格式创建文件夹,在 TXT 文件内分行输入文件夹名，调用即可;
      New Folder Wizard 一次最多支持创建 2w 个文件夹，并支持多级文件夹;
      New Folder Wizard 官方网站的四张截图介绍了四种创建文件夹的方式，简单易学，一看就会。

批量新建文件夹工具-简体中文汉化版.rar (340.14 KB, 下载次数: 1596)

2022-8-31 08:12 上传

点击文件名下载附件
阅读权限: 10

ku-yu

感谢楼主的辛苦汉化，有一个工程用pdf文件，想请楼主汉化一下：Bluebeam Revu 20
本站地址：https://www.52pojie.cn/forum.php ... ;highlight=bluebeam
官网：https://www.bluebeam.com/solutions/revu

如果可以的话，我可以开悬赏。谢谢

JackLei

yu520 发表于 2022-8-31 08:41
楼主，有批量修改图片名称的软件吗？

放到Excel VB编辑器里面运行，分为两部分，一个是读取文件名称，一个是修改文件名称，运行两次就行，自己在运行第一次时需要手动添加修改后的图片名称（记得加后缀名称），修改完成后运行第二个VB程序。

[Visual Basic] 纯文本查看 复制代码

Sub 批量获取文件名()
Cells = ""
Dim sfso
Dim myPath As String
Dim Sh As Object
Dim Folder As Object
Application.ScreenUpdating = False
On Error Resume Next
Set sfso = CreateObject("Scripting.FileSystemObject")
Set Sh = CreateObject("shell.application")
Set Folder = Sh.BrowseForFolder(0, "", 0, "")
If Not Folder Is Nothing Then
  myPath = Folder.Items.Item.Path
End If
Application.ScreenUpdating = True
Cells(1, 1) = "旧版名称"
Cells(1, 2) = "文件类型"
Cells(1, 3) = "所在位置"
Cells(1, 4) = "新版名称"
Call 直接提取文件名(myPath & "\")
End Sub
'获取选定文件夹下的所有表格名称
Sub 直接提取文件名(myPath As String)
    Dim i As Long
    Dim myTxt As String
    i = Range("A1048576").End(xlUp).Row
    myTxt = Dir(myPath, 31)
    Do While myTxt <> ""
    On Error Resume Next
        If myTxt <> ThisWorkbook.Name And myTxt <> "." And myTxt <> ".." And myTxt <> "081226" Then
            i = i + 1
            Cells(i, 1) = "'" & myTxt
            If (GetAttr(myPath & myTxt) And vbDirectory) = vbDirectory Then
                Cells(i, 2) = "文件夹"
            Else
                Cells(i, 2) = "文件"
            End If
            Cells(i, 3) = Left(myPath, Len(myPath) - 1)
        End If
        myTxt = Dir
    Loop
End Sub
'批量重新命名表格名称
Sub 批量重命名()
Dim y_name As String
Dim x_name As String
For i = 2 To Range("A1048576").End(xlUp).Row
   y_name = Cells(i, 3) & "\" & Cells(i, 1)
   x_name = Cells(i, 3) & "\" & Cells(i, 4)
   On Error Resume Next
   Name y_name As x_name
Next
End Sub

mrhu2014

用起来停不错的软件

trojankyo

谢谢分享，先收藏起来

ml72

LZ辛苦了~看截图，好像有创建子目录的功能吧？你所说的“不支持多级文件夹”具体指的什么呢？

allennany

我好奢侈，居然下载了。

NINGBOCAT

支持一下！ 我以前一直用的是：Text2Folders
虽然能用也简单，但是有点老旧，看看你这个。

yu520

楼主，有批量修改图片名称的软件吗？

wqipk

谢谢分享

zrj2019

谢谢分享！