Dim sFilesdirs As String Dim s As String Dim arrFiles As String() Dim arrSubs As String() Dim oneFile As String Dim o As String sFilesdirs = "FILE:" + vbCrLf arrFiles = Directory.GetFiles(TextBox1.Text) arrSubs = Directory.GetDirectories(TextBox1.Text) For Each oneFile In arrFiles sFilesdirs = sFilesdirs + oneFile + vbCrLf Next For Each o In arrSubs s = s + o + vbCrLf Next file.Text = sFilesdirs file1.Text = s Response.Write(HttpContext.Current.Timestamp & "<br>") Response.Write(HttpContext.Current.Server.MachineName)
string filename;
try
{
string[] dirs=Directory.GetFiles(Server.MapPath("images/face/"),"face*.gif");
foreach(string dir in dirs)
{
filename=dir.Substring(dir.LastIndexOf('\\')+1);
itmtmp=new ListItem();
itmtmp.Value=filename;
itmtmp.Text="<img src='images/face/"+filename+"'>";
rblFace.Items.Add(itmtmp);
}
rblFace.SelectedIndex=0;
}
catch
{
Response.Redirect("err.aspx?msg=文件目录读取错误,请与管理员联系!");
}
DirectoryInfo[] dis=di.GetDirectories();
FileInfo[] fi=di.GetFiles();
取得某路径下文件夹和文件。
Dim s As String
Dim arrFiles As String()
Dim arrSubs As String()
Dim oneFile As String
Dim o As String
sFilesdirs = "FILE:" + vbCrLf
arrFiles = Directory.GetFiles(TextBox1.Text)
arrSubs = Directory.GetDirectories(TextBox1.Text)
For Each oneFile In arrFiles
sFilesdirs = sFilesdirs + oneFile + vbCrLf Next
For Each o In arrSubs
s = s + o + vbCrLf
Next
file.Text = sFilesdirs
file1.Text = s
Response.Write(HttpContext.Current.Timestamp & "<br>")
Response.Write(HttpContext.Current.Server.MachineName)
void GetAllFileAndDirectory(DirectoryInfo root)
{
foreach(DirectoryInfo MyDir in root.GetDirectories())
{
GetAllFileAndDirectory(MyDir);
//得到所有的子目录
}
foreach(FileInfo Myfile in root.GetFiles())
{
//得到所有目录下的文件
}
}