同目录导出同类型文件

未成年人

来吾爱好多年了，第一次发帖 紧张小白一枚
不知道大伙儿有没有这种情况，比如说作图时下了一堆素材、字体什么的。就拿字体举例子吧
下载了一堆字体，一个文件夹一个，挨个点开，感觉有点累啊



然后我就想着 能不能 搜索这个目录下所有字体文件，把它剪切粘贴出来（复制浪费资源）

然后它就诞生了，当~当~当~当~。第一步，输入 需要查找的文件类型，输入后缀名。

1

第二步，输入完后缀名 就可以选择目录了，也可以直接把需要搜索的文件夹 拖放到空白区域

2

第三步，点击提取，确定搜索的路径是否无误，因为执行完后不可逆

3

提取时会在搜索的那个文件夹内创建一个日期文件夹，提取完成后会自动打开。也不用担心文件名相同会不会覆盖的问题，导出时会在文件前面加上编号

4

很简单的小工具，没啥技术含量大神勿喷~~~

青蛙考拉

你竟然在里边放木马，坑比，谷歌浏览器提示极度危险

未成年人

青蛙考拉 发表于 2020-3-4 22:57
你竟然在里边放木马，坑比，谷歌浏览器提示极度危险

https://habo.qq.com/file/showdetail?pk=ADcGZF1qB24IPls4U2U%3D

你让我说什么好呢说我放木马  提示极度危险，截个图好吗
哈勃分析自己看吧

Bohui1269987019

感谢分享

yanglinman

谢谢分享实用工具，支持顶贴了！

倪沁东

感谢楼主分享！

模仿楼主写的一个小软件，目前不支持单独选择
链接附上：
https://www.lanzouj.com/i9y4skf
演示效果：


源码附上：

[C] 纯文本查看 复制代码

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;~ #include <bug.au3>


#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("文件提取器", 272, 442, 150, 120)
$Label1 = GUICtrlCreateLabel("后缀名：", 30, 20, 50, 25)
$Input1 = GUICtrlCreateInput("txt", 96, 15, 80, 25)
$Label2 = GUICtrlCreateLabel("文件路径：", 30, 55, 100, 25)
$Input2 = GUICtrlCreateInput("C:\Users\niqindong\Desktop\test", 96, 47, 150, 25)
$Label3 = GUICtrlCreateLabel("目标路径：", 30, 85, 100, 25)
$Input3 = GUICtrlCreateInput("C:\Users\niqindong\Desktop\test1", 96, 77, 150, 25)
$Edit1 = GUICtrlCreateEdit("", 24, 112, 220, 250)
$btn1 = GUICtrlCreateButton("读取", 30, 390, 50, 30)
$btn2 = GUICtrlCreateButton("提取", 110, 390, 50, 30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $btn1
                        _duqu()
                Case $btn2
                        _tiqu()
        EndSwitch
WEnd


Func _duqu()
        Local $FilePath = GUICtrlRead($Input2)
        If StringRight($FilePath, 1) = "\" Then
        Else
                $FilePath = $FilePath & "\"
        EndIf
        Local $FileList = _FileListToArray($FilePath, "*." & GUICtrlRead($Input1), 1)
;~         _ArrayDisplay($FileList)
        GUICtrlSetData($Edit1, "")
        For $i = 1 To UBound($FileList) - 1
                GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & $FileList[$i] & @CRLF)
        Next
EndFunc   ;==>_duqu


Func _tiqu()
        Local $FilePath = GUICtrlRead($Input2)
        Local $mubiaoPath = GUICtrlRead($Input3)
        If StringRight($FilePath, 1) = "\" Then
        Else
                $FilePath = $FilePath & "\"
        EndIf
        Local $FileList = _FileListToArray($FilePath, "*." & GUICtrlRead($Input1), 1)
        For $i = 1 To UBound($FileList) - 1
                FileMove($FilePath & $FileList[$i], $mubiaoPath)
        Next
        
        
EndFunc   ;==>_tiqu

未成年人

倪沁东 发表于 2020-3-4 23:52
感谢楼主分享！

模仿楼主写的一个小软件，目前不支持单独选择

对头~~~这东东蛮简单的

yanghuiqq168

看看我发过的一个帖子。小巧多功能！https://www.52pojie.cn/thread-1109963-1-1.html

Aquamarine

感觉用DropIT可以解决

hacklr

唉，微软自带的搜索不香吗？