copytodir.bas

將整個目錄內的資料全部COPY到目的目錄去(不管幾層子目錄)

Attribute VB_Name = "Module1"
Public R_BinDirCount As Long

Public R_SelectDIR As String
Public R_TargetDir As String
Public R_SourceBinDir As String
Public R_SourceWordListDir As String
Public R_SourceWordListFileName As String

Public R_MaxWordCount As Long

Public R_NotFoundCount As Long
Public R_FoundCount As Long