您的位置：程序门 -> windows专区 -> windows nt/2000/xp/2003

尋求一dos批處理文件------------在線等﹗﹗﹗

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

尋求一dos批處理文件------------在線等﹗﹗﹗[已结贴,结贴人:trainli]

发表于：2007-02-08 14:55:32 楼主

前提是這樣現在在e盤下有一個文件夾file﹐在它下面有兩個或者不知道的n個filenext1,filenext2.......filenextn個文件夾﹐
并且也不知道在每一個filenext（n)文件夾中有沒有這樣一個okdel文件夾。
現在要做的是用一個批處理文件來做到這樣﹐在file文件夾中查找所有的了文件夾中有沒有okdel這個文件夾﹐如果有就
把里面所有的文件是當前系統時間七天以前的文件刪除。

謝謝﹗﹗

发表于：2007-02-08 15:47:481楼得分:1

dos批处理文件本身就是文本格式，是按照一定的语法编写的其它程序执行顺序，它本身是不可能完成你所说的功能的，它只能调用其它文件，就是说它是负责安排其它程序的执行顺序的。

发表于：2007-02-08 16:09:342楼得分:8

okdel文件夹中的文件名有没有规律？

发表于：2007-02-08 16:10:333楼得分:9

只要文件名有规律，我可以帮你写，如果没有规律的话，我还要再想想办法。

发表于：2007-02-08 16:38:314楼得分:0

是有規律的！是文件夾名字定了。okdel這個文件夾名是不變的！

发表于：2007-02-08 17:08:195楼得分:0

okdel這個文件夾下的文件名能否给个例子？

发表于：2007-02-08 17:32:236楼得分:0

okdel文件夾下的都是文件沒有文件夾了！

发表于：2007-02-08 17:44:457楼得分:0

我的意思是okdel文件夾下的文件的名字，文件的名字有什么规律，给个例子

发表于：2007-02-09 10:46:438楼得分:1

建议这样的情况还是用其他语言写一段程序来完成

发表于：2007-02-11 00:06:509楼得分:0

okdel里面的文件名字是没有规律的!

发表于：2007-02-11 00:15:1610楼得分:0

我写出来了,贴出来给大家看看,把下面保存为一个.vbs文件就可以了
这下面是我写好的查找e:\fs下有scanner这个文件夹内的所有文件del,或者是设置move到别的地方,就是如果是movedel=true时,先建一个d盘下test文件夹.先是检查有没有这个文件夹,如果有就不创建没有就创建!
dim movedel,drivepath,crefolder,checkfolder,checkfoldername '定義是否是移動或者是del!
movedel=true
drivepath= "d:\ "
crefolder= "test "
checkfolder= "e:\fs "
checkfoldername= "scanner "
'msgbox drivepath&crefolder
if movedel=true then
call createfoldername（)
end if

call moveordel（checkfolder)

function createfoldername（)
dim cref,crefpath,crefsle,createok,crefoldercount
set fso = createobject（ "scripting.filesystemobject ")
createok=true
set crefpath = fso.getfolder（drivepath)
set crefoldercount=crefpath.subfolders
for each crefsle in crefoldercount
if crefsle.name=crefolder then
createok=false
end if
next
if createok=true then
set cref = fso.createfolder（drivepath&crefolder)
end if
end function

function moveordel（folderpath)
dim fso, f, f1, fc,datename,f2
set fso = createobject（ "scripting.filesystemobject ")
set f = fso.getfolder（folderpath)
set fc = f.subfolders

for each f1 in fc
if f1.name=checkfoldername then
set datename=f1.files
for each f2 in datename
if f2.datecreated <=now-7 then
if movedel=false then
fso.deletefile folderpath& "\ "&f1.name& "\ "&f2.name,true
else
msgbox drivepath&crefolder
fso.movefile folderpath& "\ "&f1.name& "\ "&f2.name, drivepath&crefolder& "\ "
end if
end if
next
end if
moveordel（folderpath& "\ "&f1.name)
next
end function

发表于：2007-02-11 12:01:1011楼得分:0

发表于：2007-02-11 13:02:2812楼得分:1

。。。批处理

其他资讯