0

ファイルに関連する作成日、最終変更日、その他の詳細を取得し、それらをデータグリッドビューに追加したいと考えています。現在、を使用してファイル情報を取得していますdirectory.getfiles。これが私がこれまでに得たものです：

Dim paths() As String = IO.Directory.GetFiles("mypath")

For Each sFile As String In paths
    Dim fileNameOnly As String = Path.GetFileNameWithoutExtension(sFile)
    gridview.Rows.Add(fileNameOnly)
Next
4

4 に答える 4

1

これは、作成日と最終書き込み時間の両方を取得する方法です。

For each sfile as datetime.tostring in paths
     Dim fileCreatedDate As DateTime = File.GetCreationTime(paths)
     Dim fileLastWrite as DateTime = File.GetLastWriteTime(path)
Next

日付の間にファイルを取得するには、これを試してください..

Dim [date] As DateTime = firstdatevariable
While [date] <= seconddatevariable
     'add dates that are inbetween them
End While
于 2016-08-03T18:41:47.073 に答える
1

オブジェクトを使用してDirectoryInfoファイルのリストを取得すると、より多くのデータにアクセスできます。

Dim di As DirectoryInfo = New DirectoryInfo("mypath")

次に、ループは次のようになります。

For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
    Dim fileNameOnly As String = fi.Name
    Dim createDate as Date = fi.CreationTime
    <etc...>
Next

の完全な説明については、これを参照してくださいFileInfo。

https://msdn.microsoft.com/en-us/library/system.io.fileinfo(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

*私のVBはさびているかもしれません

于 2016-08-03T18:40:33.093 に答える
0

この機能をお借りしています。必要に応じてさらに操作できる情報をデータテーブルに入力することで、非常に簡単になります。

gridview.DataSource = Fileinfo_To_DataTable("mypath")

 Private Function Fileinfo_To_DataTable(ByVal directory As String) As DataTable
        Try
            'Create a new data table
            Dim dt As DataTable = New DataTable
            'Add the following columns: Name. Length Last Write Time, Creation Time
            dt.Columns.Addrange({New DataColumn("Name"), New DataColumn("Length", GetType(Long)), New DataColumn("Last Write Time", GetType(Date)), New DataColumn("Creation Time", GetType(Date))})
            'Loop through each file in the directory
            For Each file As IO.FileInfo In New IO.DirectoryInfo(directory).GetFiles
                'Create a new row
                Dim dr As DataRow = dt.NewRow

                'Set the data
                dr(0) = file.Name
                dr(1) = file.Length
                dr(2) = file.LastWriteTime
                dr(3) = file.CreationTime

                'Add the row to the data table
                dt.Rows.Add(dr)
            Next

            'Return the data table
            Return dt
        Catch ex As Exception
            Console.WriteLine(ex.ToString)

           'Return nothing if something fails
            Return Nothing
        End Try
  End Function
于 2016-08-03T18:40:41.440 に答える