+
+
Sub PartRep_replaceFiles( NPair as integer,
FromPath as array of string, ToPath as array of string, DstPath as string,
bReplace as boolean, Opt as PartRep_Option )
-
+
Ì vbslib C^[tFCXÅ·B
-
+
yøz
-
+
FromPath
-
+
ToPath
-
+
u«·¦éOÌeLXgªüÁ½t@CÌpXÌzñ
-
+
u«·¦½ãÌeLXgªüÁ½t@CÌpXÌzñ
-
+
êðu«·¦étH_[ÌpXB t@C¼ÌChJ[hÂ
-
+
DstPath
-
+
NPair
-
+
FromPath ø¨æÑ ToPath ÌvfiÅåzñÔ{Pj
-
+
bReplace
-
+
u«·¦ðs¤©Ç¤©BFalse=u«·¦\èÌpXÌêÌÝ
-
+
-
-
+
+
Class PartRep_Option
Public ExceptFolder
Public bSubFolder
@@ -483,86 +486,86 @@ Class PartRep_Option
Public MaxByteOfLine
Public LimitReplaceLines
End Class
-
+
TutH_Ì DstPath àu«·¦é©Ç¤© or Empty
-
+
DstPath ÌÅu«·¦ðµÈ¢tH_ÌpX or Empty
-
+
u«·¦ðs¤OÉA[UÉmFðæçÈ¢©Ç¤© or Empty
-
+
Opt
-
+
-
+
or Empty
-
+
-
+
StartTag ðT·ÅåsBftHg 1000
-
+
1sÌoCgª´¦½çärµÈ¢B ftHg 4096
-
+
u«·¦éÅåsBftHg 1000
-
+
FromPath Æ ToPath ÌzñvfÍA¯¶ÉµÄ¾³¢B
FromPath É¡Ìt@CpXðwèµ½êAwèµ½·×ÄÌt@CÉêv·é
eLXgðÂt@C¾¯Au«·¦Ü·B
-
+
{ÖðÄÑo·ÆAu«·¦ðsÁ½t@CÌpXð\¦µÜ·B
-
+
-
+
PartRep_replaceFile Ö௶øÅ·ªADstPath ÉChJ[hÍg¦Ü¹ñB
-
+
(src)
-
-
+
+
Set partrep_opt = new PartRep_Option
partrep_opt.ExceptFolder = "work\ExceptFolder1"
partrep_opt.bSubFolder = True
PartRep_replaceFiles 1, Array( "From.txt" ), Array( "To.txt" ), "work\*.txt", True,_
partrep_opt
-
+
Tv
-
-
-
-
+
+
+
+
-©
-£
-
-
+
©
+
£
+
+
-
+
PartRep_replaceFiles
-
+
main
-
+
ExpandWildcard
-
+
PartRep_replaceFile
-
-
-
-
+
+
+
+
-
+