Return True Catch Return False End Try End Function Private Sub CopyFile(ByVal SourceDirName As String, ByVal DestDirName As String) ‘copy指定的文件夹的所有文件到目标文件夹(单层)。 Dim dir As System.IO.Directory Dim File As System.IO.File Dim sPath, oPath As String Dim I As Integer For I = 0 To dir.GetFiles(SourceDirName).Length – 1 sPath = dir.GetFiles(SourceDirName).GetValue(i).ToString oPath = Microsoft.VisualBasic.Right(sPath, Len(sPath) – Len(SourceDirName)) 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |