[au3]按源目录结构复制指定格式文件

按源目录结构复制指定格式文件

程序编写目的：想利用easy chm制作一个Python基础代码的电子书，需要按目录结构复制所有的.py文件，查找了相关代码，通过修改FindAllFile.au3文件实现目标，au3代码如下：

 

Local $pa,$path
;=============================
;例子2:递归查找当前目录及其子目录下的所有文件
;=============================
FindAllFile("E:\BaiduNetdiskDownload")
Func FindAllFile($sDir)
    Local $hSearch = FileFindFirstFile($sDir & "\*.*")
    ; 检查搜索是否成功
    If $hSearch = -1 Then Return
    While 1
        Local $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        
        If @extended Then 
            FindAllFile($sDir & "\" & $sFile)
            ContinueLoop
        EndIf
        FileWriteLine("找到的文件.txt",$sDir & "\" & $sFile)
        If StringRight($sDir & "\" & $sFile,3)=".py" Then 
        $path=$sDir & "\" & $sFile
        copy()
        fileCopy($sDir & "\" & $sFile,"d:\python\"&$pa,9)
        EndIf
    WEnd
    ; 关闭搜索句柄
    FileClose($hSearch)
EndFunc



Func copy()

;$path="E:\BaiduNetdiskDownload\01.第一周\day02--变量和数据类型\代码\2.认识数据类型.py"
$pa="\"
$aArray=StringSplit($path,"\")
  For $i = 3 To $aArray[0]-1 ; Loop through the array returned by StringSplit to display the individual values.
        
  $pa=$pa&$aArray[$i]&"\"
        
   Next

;MsgBox(0,"",$pa)


EndFunc