获取指定文件夹下指定格式的文件名(带完整路径)

复制代码
            
            ----------------2021/12/8 JM
            ---------获取指定文件夹下指定格式的文件名,带完整路径
            Imagefile_name_array = #()
            cc= "C:\Users\Administrator\Desktop\\" ------bat文件生成路径
            batname = cc + "Imagefilename.bat"  ------生成bat文件完整路径名
            sstart = createFile batname  -----创建bat文件
                                        
            ff = "C:\Users\Administrator\Desktop\\" ------需要获取的指定文件夹内文件名
            bb = "C:\Users\Administrator\Desktop\\" -------txt文档生成的文件位置
            a1 = "%"
            tt = cc+"result.txt"  ---------txt文档名
            ee = "Imagefile_name_array = #("
            uu = "Imagefile=Imagefile_name_array"
            Format "@echo off\n" to:sstart

            Format "type nul >%result.txt\n"  bb to:sstart
            Format "echo % >%\n" ee tt to:sstart ------向文本写入文本"Imagefile_name_array = #("
            Format " for /r % %%a in (*) do (\n>>%result.txt echo %%~dpa%%~nxa,\n)\n " ff a1 a1  bb  a1 a1 a1 a1 to:sstart
                    ---(*.tga) 指定格式  \n 换行
            Format "echo ) >>\"%\"\n"  tt to:sstart  -----向文本写入) 括号
            Format "echo % >>\"%\"\n"  uu tt to:sstart ------向文本写入文本"Imagefile=Imagefile_name_array"
            
    
            close sstart

                 ----------------------------------------------------生成隐身运行vbs bat文件-------------------------------------------
                                                vbsbname = "C:\Users\Administrator\Desktop\\temp3.vbs"
                                                vbsbstart = createFile vbsbname

                                                Format "Set ws = CreateObject(\"Wscript.Shell\")\n" to:vbsbstart

                                                Format    "ws.run \"cmd /c %\",0\n"        batname to:vbsbstart

                                                close vbsbstart

                                                shellLaunch batname ""  --运行生成后的bat文件


        



                                                
 
复制代码

 

posted @   简梦JM  阅读(612)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布:重大改进与新特性概览!
· AI与.NET技术实操系列(二):开始使用ML.NET
· 单线程的Redis速度为什么快?
点击右上角即可分享
微信分享提示