得到当前目录下的所有文件名

others:
Dim   Dtb   As   New   DataTable  
                  Dim   myDataRow   As   DataRow  
                  Dim   myDataColumn   As   New   DataColumn  
                  myDataColumn.DataType   =   System.Type.GetType("System.String")  
                  myDataColumn.ColumnName   =   "文件名"  
                  Dtb.Columns.Add(myDataColumn)  
                  Dim   dirs   As   String()   =   Directory.GetFiles(Application.StartupPath,   "*.dat")  
                  MsgBox(Application.StartupPath)  
                  For   Each   dir   As   String   In   dirs  
                          myDataRow   =   Dtb.NewRow()  
                          myDataRow.Item(0)   =   dir.Replace(Application.StartupPath   &   "\",   "")'去掉路径,只显示文件名  
                          Dtb.Rows.Add(myDataRow)  
                  Next  
                  DataGrid1.DataSource   =   Dtb  
          End   Sub

myself:
string[]  dim=System.IO.Directory.GetFiles(Application.StartupPath,"*.xls");
string firstoldfilename=dim[0].ToString();
string oldfilename=dim[0].Replace(Application.StartupPath,"");
oldfilename=oldfilename.Replace("\\","");
string newoldfilename=oldfilename.Replace(".xls","");