【原创软件】第7期:文件夹生成器V1.0-按照列表批量生成文件夹,简单小巧

一、背景

因为工作需要,需要批量创建文件夹。为了省去人工创建时间,使用aardio制作了一个软件。

二、功能演示

三、下载地址

https://www.123pan.com/s/9Rn9-1xppH.html

四、源代码

源代码分享:

复制代码
import win.ui;
import fsys;
import fsys.dlg
import process.popen;
import process;
//import win.dialog;
/*DSG{{*/
mainForm = win.form(text="文件夹生成器V1.0-by公众号@读研札记";right=791;bottom=503)
mainForm.add(
button={cls="button";text="浏览";left=640;top=40;right=744;bottom=72;font=LOGFONT(h=-14);z=3};
button2={cls="button";text="一键批量生成文件夹";left=48;top=424;right=744;bottom=488;color=255;font=LOGFONT(h=-16);z=4};
edit={cls="edit";left=216;top=40;right=632;bottom=72;edge=1;font=LOGFONT(h=-14);multiline=1;z=2};
edit3={cls="edit";left=48;top=112;right=744;bottom=408;edge=1;font=LOGFONT(h=-14);multiline=1;z=5};
static={cls="static";text="根文件夹(目标文件夹):";left=48;top=40;right=224;bottom=72;center=1;font=LOGFONT(h=-14);transparent=1;z=1};
static2={cls="static";text="文件夹名称列表粘贴区域:";left=48;top=88;right=224;bottom=128;font=LOGFONT(h=-14);transparent=1;z=6};
static3={cls="static";text="Static";left=48;top=16;right=176;bottom=40;transparent=1;z=7};
static4={cls="static";text="点击查看我的公众号";left=608;top=8;right=744;bottom=24;color=16711680;font=LOGFONT(weight=700);notify=1;transparent=1;z=8}
)
/*}}*/

import win.cur;
//当鼠标指针移到静态控件上是,切换鼠标为手形
var hand = win.cur.load(32649/*_IDC_HAND*/)
mainForm.static4.wndproc = function(hwnd,message,wParam,lParam){
if(message = 0x200/*_WM_MOUSEMOVE*/) {
win.cur.setCur(hand);
}
}//endproc

mainForm.static4.oncommand = function(id,event){    
    process.execute("http:/mp.weixin.qq.com/s/rht9MkxPV4Dk5iQityjrUQ");   
}

// 浏览文件夹路径的函数
mainForm.button.oncommand = function() {
    var folderPath = fsys.dlg.opendir("请选择根文件夹路径");
    if (folderPath != "") {
        mainForm.edit.text = folderPath;
    }
}

// 生成文件夹的函数
function generateFolders() {
    var rootPath = mainForm.edit.text;
    var folderList = string.split(mainForm.edit3.text, '<\r\n>');

    if (!fsys.isDir(rootPath)) {       
         win.msgbox("根文件夹没有设置或者不存在该文件夹", "提示");
         return 
    }

    var foldercount = table.count(folderList)

    if (foldercount > 0) {  
        for ( i = 1;  foldercount; 1) {
            var folderName = folderList[i];
            var fullPath = rootPath + "\\" + folderName;
            if (!fsys.isDir(fullPath) && folderName != "") {
                fsys.createDir(fullPath, true);
            }
        }
    } else {
        win.msgbox("输入的文件夹名称至少1个", "提示");
        return
    }

    win.msgbox(table.count(folderList) + "个文件夹已经生成完成!", "提示");

   process.explore( rootPath)
       /**
 cmd = /*
                start D:/wwwroot/
        */
        prcs.write(cmd);
**/

}

// 按钮点击事件
mainForm.button2.oncommand = function() {
    generateFolders();
};

// 运行窗口

 //显示时间

tmid = mainForm.addtimer(
  1000/*毫秒*/,
  function(hwnd,msg,id,tick){//定时执行代码
    //显示现在时间
    mainForm.static3.text=time();
    //mainForm.killtimer(id)//移除此定时器
    //mainForm.settimer(id,2000)//重新设定时间间隔
  }
);

mainForm.show();
return win.loopMessage();
相关推荐
Gavin_9158 小时前
“操作无法完成,因为其中的文件夹或文件已在另一程序中打开”解决方案
windows·重命名·文件夹
toooooop81 天前
aardio WebView 同源策略与跨域终极解决方案
webview·aardio
xcLeigh6 天前
KES数据库自动创建表空间目录,不用再提前建文件夹了
数据库·oracle·自动化·表空间·文件夹
恶猫24 天前
自动拨号换ip软件简单实现。aardio版。
java·网络·aardio·adsl·换ip·rasphone.exe·rasdial.exe
白叔King2 个月前
aardio时间日期转换中文时间
前端·javascript·aardio
ShirleyWang0122 个月前
windows 11(win10\win 11)显示文件夹无法重命名
win11·regedit·文件夹
Thomas.Sir2 个月前
第二章:Python3 之 列表与元组
python·列表·元组
【ql君】qlexcel3 个月前
Windows使文件的视图默认按详细信息显示
windows·文件夹·详细信息·文件的视图·默认查看·默认视图·查看方式
dalong103 个月前
A27:图像九宫格分割程序
笔记·aardio