110,538
社区成员
发帖
与我相关
我的任务
分享
Private Function FolderNames(ByVal strDirect As String) As ArrayList
Dim StrTemp As New ArrayList
If Not (strDirect Is Nothing) Then
Debug.Print("**********************************")
Debug.Print(strDirect)
'遍历文件夹
Dim mDirInfo As New System.IO.DirectoryInfo(strDirect)
Dim mDir As System.IO.DirectoryInfo
For Each mDir In mDirInfo.GetDirectories
FolderNames(mDir.FullName)
StrTemp.Add(mDir)
Next
End If
Return StrTemp
End Function
static ArrayList FolderNames(string strDirect)
{
ArrayList StrTemp = new ArrayList();
if (strDirect != null)
{
Console.WriteLine("**********************************");
Console.WriteLine("文件夹的路径:{0}", strDirect);
//遍历文件夹
DirectoryInfo mDirInfo =new DirectoryInfo(strDirect);
foreach (DirectoryInfo mDir in mDirInfo.GetDirectories())
{
FolderNames(mDir.FullName);
StrTemp.Add(mDir);
}
}
return StrTemp;
}