胎儿心脏超声单怎么看:各位高手,请将此vb代码转为c#的
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/11 17:42:24
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
Directory.CreateDirectory(strDirectoryDesPath)
End If
Dim f, fs() As FileInfo
fs = DirectorySrc.GetFiles()
For Each f In fs
File.Copy(f.FullName, strDirectoryDesPath & "\" & f.Name, True)
Next
Dim DirSrc, Dirs() As DirectoryInfo
Dirs = DirectorySrc.GetDirectories()
'递归调用自身
For Each DirSrc In Dirs
Dim DirDes As New DirectoryInfo(strDirectoryDesPath)
CopyDerictory(DirSrc, DirDes)
Next
End Sub
Dim strDirectoryDesPath As String = DirectoryDes.FullName & "\" & DirectorySrc.Name
If Not Directory.Exists(strDirectoryDesPath) Then
Directory.CreateDirectory(strDirectoryDesPath)
End If
Dim f, fs() As FileInfo
fs = DirectorySrc.GetFiles()
For Each f In fs
File.Copy(f.FullName, strDirectoryDesPath & "\" & f.Name, True)
Next
Dim DirSrc, Dirs() As DirectoryInfo
Dirs = DirectorySrc.GetDirectories()
'递归调用自身
For Each DirSrc In Dirs
Dim DirDes As New DirectoryInfo(strDirectoryDesPath)
CopyDerictory(DirSrc, DirDes)
Next
End Sub
//注意加入using System.IO;
public void CopyDerictory(DirectoryInfo DirectorySrc,DirectoryInfo DirectoryDes)
{
string strDirectoryDesPath = DirectoryDes.FullName + "\\" + DirectorySrc.NameName;
if(!Directory.Exists(strDirectoryDesPath))
Directory.CreateDirectory(strDirectoryDesPath);
FileInfo[] fs = DirectorySrc.GetFiles() ;
foreach(FileInfo f in fs)
File.Copy(f.FullName, strDirectoryDesPath + "\\" + f.Name, true);
DirectoryInfo[] Dirs = DirectorySrc.GetDirectories();
foreach(DirectoryInfo DirSrc in Dirs)
{
DirectoryInfo DirDes = new DirectoryInfo(strDirectoryDesPath);
CopyDerictory(DirSrc, DirDes);
}
}