宝宝3岁相册

Apr 26th, 2012

由宝贝计划设计和制作。

Read more…

Tags:

Yosemite: 端口转发

Jan 29th, 2015

Yosemite下安装DNSCrypt,在GoAgent里打开DNS,会提示无法绑定本地53端口,而Yosemite删除了ipfw,端口转发如下实现:

新建并编辑/etc/pf.anchors/com.rico

rdr pass on en0 inet proto udp from any to any port 53 -> 127.0.0.1 port 8053

编辑/etc/pf.conf,添加蓝色文字

scrub-anchor “com.apple/*”

nat-anchor “com.apple/*”

rdr-anchor “com.apple/*”

rdr-anchor “com.rico”

dummynet-anchor “com.apple/*”

anchor “com.apple/*”

load anchor “com.apple” from “/etc/pf.anchors/com.apple”

load anchor “com.rico” from “/etc/pf.anchors/com.rico”

编辑/System/Library/LaunchDaemons/com.apple.pfctl.plist,开机载入转发策略

        <key>ProgramArguments</key>

<array>

<string>pfctl</string>

<string>-f</string>

<string>-e</string>

<string>/etc/pf.conf</string>

</array>

可以手工加载测试效果:

$ pfctl -ef /etc/pf.conf

另外两条有用的Apple Script:

do shell script “/Users/ricojiang/Applications/3.2.3/local/goagent-osx.command > /dev/null 2>&1 &” with administrator privileges

载入GoAgent

do shell script “open ‘/Applications/Google Chrome.app’ –args –ssl-version-min=tls1 –ignore-certificate-errors”

载入Chrome,忽略证书错误,并指定只能用TLSv1

Tags:

Yosemite: 切换默认打开程序

Jan 28th, 2015

打开Finder,选取要设定/更改默认打开程序的文件,右击Get Info (Command+I),在弹出的属性浮动窗口里,找到Open with: 挑选指定的程序,单击下方的Change All…

Screen Shot 2015-01-28 at 下午2.19.15

Tags:

VBScript:调用UltraISO制作光盘镜像

Jan 17th, 2015

用VBScript调用UlraISO,判断子目录如果非空,就自动生成光盘镜像和卷标

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders, objFileToWrite
Dim objWSHShell : Set objWSHSHell = CreateObject(“WScript.Shell”)

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“f:\cd\cdok\2Do\test\ok\”)
Set dest = fso.GetFolder(“f:\up\”)
Set srcSubfolders = src.Subfolders
‘Set destSubfolders = dest.Subfolders

For Each srcSubfolders In src.Subfolders
If Not FolderEmpty(fso.BuildPath(srcSubfolders.path , “配套PPT课件\”)) And Not FolderEmpty(fso.BuildPath(srcSubfolders.path , “课后习题Word版\”)) Then
objWSHShell.CurrentDirectory = dest.Path
Dim strCMD
strCMD = “””” & “d:\Program Files\UltraISO\UltraISO.exe” & “””” & ” -imax -l -d ” & srcSubfolders & ” -volu ” & srcSubfolders.Name & ” -out ” & dest & “\” & srcSubfolders.Name & “.iso”
Dim objExec : Set objExec = objWSHShell.Exec(“CMD /C ” & strCMD)
Else
WScript.Echo “移动” & srcSubfolders
fso.MoveFolder srcSubfolders, “f:\cd\cdok\2Do\”
End if
Next

Function FolderEmpty(strFolder)
Dim objFSO, objFolder
Set objFSO = CreateObject(“Scripting.FileSystemObject”)

If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)

If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
FolderEmpty=True
Else
FolderEmpty=False
End If
End If
Set objFSO = Nothing
End Function
WScript.Echo “iso处理完成!”

Tags:

VBScript:将方正经典新版转出的Word和pdf文件合并到同名目录

Jan 16th, 2015

新版方正经典转出的Word存放到“书名_WordXPort”目录里,同时生成的pdf存放在“书名_PdfXPort”目录里,用VBScript写程序删除_WordXPort和_PdfXPort,并将文件合同到该书名的目录里。程序如下:

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders, destName, srcName

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“f:\方正\工作目录\”)
Set dest = fso.GetFolder(“f:\方正\Word\”)
Set srcSubfolders = src.Subfolders
Set destSubfolders = dest.Subfolders

For Each destSubfolders In dest.Subfolders
destName = destSubfolders.Name
destName = Replace(destName,”_WordXPort”,””)
if (destName<>destSubfolders.Name) then
fso.MoveFolder destSubfolders, fso.BuildPath(dest.path , destName)
end If
Next

For Each srcSubfolders In src.Subfolders
srcName = srcSubfolders.Name
srcName = Replace(srcName,”_PdfXPort”,””)
if (srcName<>srcSubfolders.Name) then
fso.MoveFolder srcSubfolders, fso.BuildPath(src.path , srcName)
end If
Next

For Each destSubfolders In dest.Subfolders
For Each srcSubfolders In src.Subfolders
If srcSubfolders.Name = destSubfolders.Name Then
fso.CopyFolder srcSubfolders , destSubfolders, True
fso.DeleteFolder srcSubfolders
End if
Next
Next

WScript.Echo “pdf合并完成!”

Tags:

VBScript对拷不同路径下同名目录及处理svn

Jan 16th, 2015

一个小项目,实现一些复杂的目录操作

同步当日svn并添加通用内容.cmd

echo off
rem
rem my system date format = 2015/01/13 周二
rem
rem start code….
rem
echo “拷贝待制作目录”

SET CurrentDate=%date:~-8,2%-%date:~-5,2%-%date:~-0,4%
xcopy f:\cd\job\质检通过\*.ppsx /D:%CurrentDate% /s /y /EXCLUDE:f:\cd\cdok\2Do\test\ex.txt
for /d /r %%a in (.) do del /s /f 目录.ppsx

echo “拷贝共用模块”
rem 高优
for /d /r %%b in (高优设计*) do move /y %%b 高优
cd 高优
for /d /r %%b in (高优设计地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\地理\*.* %%b
for /d /r %%b in (高优设计化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\化学\*.* %%b
for /d /r %%b in (高优设计历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\历史\*.* %%b
for /d /r %%b in (高优设计生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\生物\*.* %%b
for /d /r %%b in (高优设计数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\数学\*.* %%b
for /d /r %%b in (高优设计物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\物理\*.* %%b
for /d /r %%b in (高优设计英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\英语\*.* %%b
for /d /r %%b in (高优设计语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\语文\*.* %%b
for /d /r %%b in (高优设计政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\政治\*.* %%b
cd ..
for /d /r %%b in (高优指导*) do move /y %%b 高优
cd 高优
for /d /r %%b in (高优指导地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\地理\*.* %%b
for /d /r %%b in (高优指导化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\化学\*.* %%b
for /d /r %%b in (高优指导历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\历史\*.* %%b
for /d /r %%b in (高优指导生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\生物\*.* %%b
for /d /r %%b in (高优指导数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\数学\*.* %%b
for /d /r %%b in (高优指导物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\物理\*.* %%b
for /d /r %%b in (高优指导英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\英语\*.* %%b
for /d /r %%b in (高优指导语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\语文\*.* %%b
for /d /r %%b in (高优指导政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\政治\*.* %%b
cd ..

rem 赢在高考
for /d /r %%b in (赢在高考*) do move /y %%b 赢在高考
cd 赢在高考
for /d /r %%b in (赢在高考地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\地理\*.* %%b
for /d /r %%b in (赢在高考化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\化学\*.* %%b
for /d /r %%b in (赢在高考历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\历史\*.* %%b
for /d /r %%b in (赢在高考生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\生物\*.* %%b
for /d /r %%b in (赢在高考数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\数学\*.* %%b
for /d /r %%b in (赢在高考物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\物理\*.* %%b
for /d /r %%b in (赢在高考英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\英语\*.* %%b
for /d /r %%b in (赢在高考语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\语文\*.* %%b
for /d /r %%b in (赢在高考政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\政治\*.* %%b
cd ..

rem 高考全优
for /d /r %%b in (高考全优*) do move /y %%b 高考全优
cd 高考全优
for /d /r %%b in (高考全优地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\地理\*.* %%b
for /d /r %%b in (高考全优化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\化学\*.* %%b
for /d /r %%b in (高考全优历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\历史\*.* %%b
for /d /r %%b in (高考全优生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\生物\*.* %%b
for /d /r %%b in (高考全优数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\数学\*.* %%b
for /d /r %%b in (高考全优物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\物理\*.* %%b
for /d /r %%b in (高考全优英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\英语\*.* %%b
for /d /r %%b in (高考全优语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\语文\*.* %%b
for /d /r %%b in (高考全优政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高优\政治\*.* %%b
cd ..

rem 赢在课堂
for /d /r %%b in (赢在课堂*) do move /y %%b 赢在课堂
cd 赢在课堂
for /d /r %%b in (赢在课堂地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\地理\*.* %%b
for /d /r %%b in (赢在课堂化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\化学\*.* %%b
for /d /r %%b in (赢在课堂历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\历史\*.* %%b
for /d /r %%b in (赢在课堂生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\生物\*.* %%b
for /d /r %%b in (赢在课堂数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\数学\*.* %%b
for /d /r %%b in (赢在课堂物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\物理\*.* %%b
for /d /r %%b in (赢在课堂英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\英语\*.* %%b
for /d /r %%b in (赢在课堂语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\语文\*.* %%b
for /d /r %%b in (赢在课堂政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\政治\*.* %%b
cd ..

rem 初中
for /d /r %%b in (*年级*) do move /y %%b 初中
for /d /r %%b in (初优*) do move /y %%b 初中
cd 初中
for /d /r %%b in (测控设计地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\地理\*.* %%b
for /d /r %%b in (测控设计化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\化学\*.* %%b
for /d /r %%b in (测控设计历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\历史\*.* %%b
for /d /r %%b in (测控设计生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\生物\*.* %%b
for /d /r %%b in (测控设计数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\数学\*.* %%b
for /d /r %%b in (测控设计物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\物理\*.* %%b
for /d /r %%b in (测控设计英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\英语\*.* %%b
for /d /r %%b in (测控设计语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\语文\*.* %%b
for /d /r %%b in (测控设计政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\政治\*.* %%b

for /d /r %%b in (初优设计地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\地理\*.* %%b
for /d /r %%b in (初优设计化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\化学\*.* %%b
for /d /r %%b in (初优设计历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\历史\*.* %%b
for /d /r %%b in (初优设计生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\生物\*.* %%b
for /d /r %%b in (初优设计数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\数学\*.* %%b
for /d /r %%b in (初优设计物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\物理\*.* %%b
for /d /r %%b in (初优设计英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\英语\*.* %%b
for /d /r %%b in (初优设计语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\语文\*.* %%b
for /d /r %%b in (初优设计政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\政治\*.* %%b

for /d /r %%b in (全优设计地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\地理\*.* %%b
for /d /r %%b in (全优设计化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\化学\*.* %%b
for /d /r %%b in (全优设计历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\历史\*.* %%b
for /d /r %%b in (全优设计生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\生物\*.* %%b
for /d /r %%b in (全优设计数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\数学\*.* %%b
for /d /r %%b in (全优设计物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\物理\*.* %%b
for /d /r %%b in (全优设计英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\英语\*.* %%b
for /d /r %%b in (全优设计语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\语文\*.* %%b
for /d /r %%b in (全优设计政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\初中\政治\*.* %%b
cd ..

rem 金牌学案
for /d /r %%b in (金牌学案*) do move /y %%b 金牌学案
cd 金牌学案
for /d /r %%b in (金牌学案地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\地理\*.* %%b
for /d /r %%b in (金牌学案化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\化学\*.* %%b
for /d /r %%b in (金牌学案历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\历史\*.* %%b
for /d /r %%b in (金牌学案生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\生物\*.* %%b
for /d /r %%b in (金牌学案数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\数学\*.* %%b
for /d /r %%b in (金牌学案物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\物理\*.* %%b
for /d /r %%b in (金牌学案英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\英语\*.* %%b
for /d /r %%b in (金牌学案语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\语文\*.* %%b
for /d /r %%b in (金牌学案政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\金牌学案\政治\*.* %%b
cd ..

rem 全优指导
for /d /r %%b in (全优指导*) do move /y %%b 全优指导
cd 全优指导
for /d /r %%b in (全优指导地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\地理\*.* %%b
for /d /r %%b in (全优指导化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\化学\*.* %%b
for /d /r %%b in (全优指导历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\历史\*.* %%b
for /d /r %%b in (全优指导生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\生物\*.* %%b
for /d /r %%b in (全优指导数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\数学\*.* %%b
for /d /r %%b in (全优指导物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\物理\*.* %%b
for /d /r %%b in (全优指导英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\英语\*.* %%b
for /d /r %%b in (全优指导语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\语文\*.* %%b
for /d /r %%b in (全优指导政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\政治\*.* %%b
cd ..

rem 高中同步
for /d %%b in (测控设计*) do move /y %%b 高中同步
cd 高中同步
for /d /r %%b in (测控设计地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\地理\*.* %%b
for /d /r %%b in (测控设计化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\化学\*.* %%b
for /d /r %%b in (测控设计历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\历史\*.* %%b
for /d /r %%b in (测控设计生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\生物\*.* %%b
for /d /r %%b in (测控设计数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\数学\*.* %%b
for /d /r %%b in (测控设计物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\物理\*.* %%b
for /d /r %%b in (测控设计英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\英语\*.* %%b
for /d /r %%b in (测控设计语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\语文\*.* %%b
for /d /r %%b in (测控设计政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\政治\*.* %%b
cd ..
for /d %%b in (测控指导*) do move /y %%b 高中同步
cd 高中同步
for /d /r %%b in (测控指导地理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\地理\*.* %%b
for /d /r %%b in (测控指导化学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\化学\*.* %%b
for /d /r %%b in (测控指导历史*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\历史\*.* %%b
for /d /r %%b in (测控指导生物*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\生物\*.* %%b
for /d /r %%b in (测控指导数学*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\数学\*.* %%b
for /d /r %%b in (测控指导物理*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\物理\*.* %%b
for /d /r %%b in (测控指导英语*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\英语\*.* %%b
for /d /r %%b in (测控指导语文*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\语文\*.* %%b
for /d /r %%b in (测控指导政治*) do xcopy /s /-y /e e:\尼赏\多媒体中心\光盘\技术\高中同步\政治\*.* %%b
cd ..
FOR /d %%i IN (初中\*) DO move %%i ok
FOR /d %%i IN (高优\*) DO move %%i ok
FOR /d %%i IN (高考全优\*) DO move %%i ok
FOR /d %%i IN (高中同步\*) DO move %%i ok
FOR /d %%i IN (金牌学案\*) DO move %%i ok
FOR /d %%i IN (全优指导\*) DO move %%i ok
FOR /d %%i IN (赢在高考\*) DO move %%i ok
FOR /d %%i IN (赢在课堂\*) DO move %%i ok

pause

拷入ppt.vbs

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders
Dim objWSHShell : Set objWSHSHell = CreateObject(“WScript.Shell”)

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“f:\cd\job\质检通过\”)
Set dest = fso.GetFolder(“f:\cd\cdok\2Do\test\ok\”)
Set srcSubfolders = src.Subfolders
Set destSubfolders = dest.Subfolders

For Each srcSubfolders In src.Subfolders
If srcSubfolders.Name <> “.svn” then
For Each destSubfolders In dest.Subfolders
If srcSubfolders.Name = destSubfolders.Name Then
fso.CopyFolder srcSubfolders, fso.BuildPath(destSubfolders.path , “配套PPT课件”), True
objWSHShell.CurrentDirectory = src.Path
Dim strCMD
strCMD = “svn delete -F f:\cd\cdok\2Do\test\error.log https://192.168.6.5/svn/new/质检通过/” & srcSubfolders.Name
Dim objExec : Set objExec = objWSHShell.Exec(“CMD /C ” & strCMD)
End if
Next
End if
Next

WScript.Echo “ppt复制完成!”

拷入题库.vbs

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“x:\ftp\孙学锋\todo\”)
Set dest = fso.GetFolder(“f:\cd\cdok\2Do\test\ok\”)
Set srcSubfolders = src.Subfolders
Set destSubfolders = dest.Subfolders

For Each destSubfolders In dest.Subfolders
For Each srcSubfolders In src.Subfolders
If srcSubfolders.Name = destSubfolders.Name Then
fso.CopyFolder fso.BuildPath(srcSubfolders.path , “word”), fso.BuildPath(destSubfolders.path , “课后习题Word版”), True
fso.CopyFolder fso.BuildPath(srcSubfolders.path , “exe”), fso.BuildPath(destSubfolders.path , “易错题库”), True
fso.MoveFolder srcSubfolders, “x:\ftp\孙学锋\back\”
End if
Next
Next

WScript.Echo “题库复制完成!”

Tags: