宝宝3岁相册

Apr 26th, 2012

由宝贝计划设计和制作。

Read more…

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:

PowerPoint 2010: The server application, … unknown error

Apr 5th, 2012

PowerPoint 2010制作幻灯片,保存为pptx格式,内容为嵌入的Word Document Object,应当双击可以编辑,但是存盘后,双击嵌入的内容,报错:

The server application, source file, or item can’t be found, or returned an unknown error. You may need to reinstall the server application.

卸载、重装、修复Office 2010,问题依旧。后发现是文件里有串符号有问题,修改它即可。方法是(文件管理器Total Commander,文本编辑器Edit Plus):

pptx文件其实就是zip压缩包,将pptx扩展名改回zip,在Total Commander下观察压缩文件,可见它的目录结构如下:

出现问题的文件即[Content_Types].xml。按F5提取此文件,按F4调用Edit Plus编辑此文件,为便于观察,在所有>后换行,在Edit Plus下,按Ctrl H,如图设置:

将第一行<Override PartName=…前的所有内容替换为下文:

<?xml version=”1.0″ encoding=”UTF-8″ standalone=”yes”?>

<Types xmlns=”http://schemas.openxmlformats.org/package/2006/content-types”>
<Default Extension=”png” ContentType=”image/png”/>
<Default Extension=”jpeg” ContentType=”image/jpeg”/>
<Default Extension=”emf” ContentType=”image/x-emf”/>
<Default Extension=”rels” ContentType=”application/vnd.openxmlformats-package.relationships+xml”/>
<Default Extension=”xml” ContentType=”application/xml”/>
<Default Extension=”docx” ContentType=”application/vnd.openxmlformats-officedocument.wordprocessingml.document”/>
<Default Extension=”vml” ContentType=”application/vnd.openxmlformats-officedocument.vmlDrawing”/>

保存,将存盘的[Content_Types].xml拉回刚才的zip文件里,再将扩展名改为pptx,问题解决,双击Word Document Object,将启动内嵌的Word对之进行编辑。

Tags: