Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo) Dim strDirectoryDesPath As String = DirectoryDes.FullName & "\" & DirectorySrc.Name If Not Directory.Exists(strDirectoryDesPath) Then &n...[ 查看全文 ]
(1)查找指定扩展名的文件 procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; begin ListBox1.Items.Clear ; if FindFirst('D:work*.*', faAnyFile, sr) = 0 then begin repeat if pos('.xls',lowercase(sr.Name))0 then &...[ 查看全文 ]
Many times we might need some part of code which will access all sub-folders of the server and also all files within the sub-folder. The following line of asp code will map to a specified folder and searches all the sub-folders (Not recursively, code can be extended to do) and re...[ 查看全文 ]