<html>
<head>
<title>Renamed</title>
<style>
body{color:ffffff;}
td{text-align:center;}
.td1{width:80;text-align:center;}
.input1{width:100%;text-align:center;color:red;}
</style>
<hta:application scroll="no">
<script language="vbscript">
resizeto 500,300
'减去字符串的脚本
sub tihuan(varsrc,vardst,var1,var2)
'msgbox varsrc & vardst & var1 & var2
set fso1=createobject("scripting.filesystemobject")
set folder_src=fso1.getfolder(varsrc)
set folder_dst=fso1.getfolder(vardst)
'set folders_src=folder_src.subfolders
set files_src=folder_src.files
for each fi in files_src
dstfi=replace(fi.name,var1,var2)
fso1.movefile fi.path,folder_dst.path & "\" & dstfi
next
msgbox "完成"
end sub
sub tianjia(varsrc,vardst,var1,var2)
'msgbox varsrc & vardst & var1 & var2
set fso1=createobject("scripting.filesystemobject")
set folder_src=fso1.getfolder(varsrc)
set folder_dst=fso1.getfolder(vardst)
'set folders_src=folder_src.subfolders
set files_src=folder_src.files
for each fi in files_src
if cint(var2)=0 then
dstfi=var1 & fi.name
elseif cint(var2)=-1 then
n=instr(1,fi.name,".",1)
'msgbox n
'dstfi=fi.name & var1 & right("")
end if
fso1.movefile fi.path,folder_dst.path & "\" & dstfi
next
msgbox "完成"
end sub
</script>
</head>
<body bgcolor="aaaaaa">
<table cellspacing="0" cellpadding="3" border="1" style="width:100%">
<tr>
<td class="td1">源文件夹</td><td><input type="file" name="src" value="浏览..." class="input1"></td>
</tr>
<tr>
<td class="td1">目标文件夹</td><td><input type="file" name="dst" value="浏览..." class="input1"></td>
</tr>
</table>
<hr>
<table cellspacing="0" cellpadding="3" border="1" style="width:100%">
<tr>
<td class="td1">更改方式</td><td>指定源字符串</td><td>指定目标字符串</td>
</tr>
<tr>
<td class="td1" title="从源文件名中替换指定字符串">< /input type="radio" name="radio1"><span onclick="radio1.click"> 替换</span>< /td><td><input type="text" name="t1" class="input1">< /td><td><input type="text" name="t2" class="input1" value=""& gt;</td><td><input type="button" name="tj" value="提交" onclick="tihuan src.value,dst.value,t1.value,t2.value"></td>
</tr>
<tr>
<td class="td1" title="在源文件名中添加指定字符串">< span onclick="radio1.click">添加</span></td><td>< input type="text" name="t3" class="input1"></td><td>< input type="text" name="t4" class="input1" value="" title="提示:请输入数字,0代表在前面添加,"></td><td><input type="button" name="tj" value=" 提交" onclick="tianjia src.value,dst.value,t3.value,t4.value"></td& gt;
</tr>
</table>
<hr>
<center>
</center>
</body>
</html>
'————————————————————————————
'保存为重命名的.hta 。会有惊喜的
' |
发表于 2009-7-25 14:47:29
楼主