0

我想获取创建日期、上次修改日期以及与文件相关的其他详细信息，并将它们添加到 datagridview 中。目前我正在使用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

如果您使用该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 回答
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 回答
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 回答
0

在我看来，最简单的就是这个例子。我在这里在我的文档中寻找一个名为 Symbols.csv 的文件

Friend ReadOnly MyDocsFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim SymbolsFile As String = Path.Combine(MyDocsFolder, "Symbols.csv")
Dim dt As Date = File.GetLastWriteTime(SymbolsFile)
Text = "Data last saved at:  " & dt.ToShortDateString
于 2020-12-16T15:25:59.407 回答