从字符串“‎8/‎5/‎2014”到类型“日期”的转换无效

Question

我的代码已从图像文件中检索到“拍摄日期”属性并将其存储为字符串。然后，它将该字符串传递回 Main Sub，并在其中尝试将其与其他日期（系统时间）进行比较。我收到一条错误消息，提示我无法将字符串日期转换为日期。 （从字符串“‎8/‎5/‎2014”到类型“日期”的转换无效。）

在下面的代码中有两行被注释掉。执行这些行时，程序按预期工作（字符串转换为日期）。注释行中的日期与（视觉上）程序化获取的日期完全匹配；虽然如果我从监视窗口复制和粘贴它也会失败。

    Imports System.IO
    Imports System.Globalization

Module Module1

    Sub Main()

        Dim topLevelFolder As New DirectoryInfo("C:\Users\amitchell\Desktop\test1\")
        Dim cutoffDate As DateTime = DateTime.Now.AddDays(-30)
        Dim Dtaken As String
        Dim PassFile
        Dim Dtaken2

        Using outputFile As New StreamWriter("output_file.txt")
            For Each currentFile In topLevelFolder.EnumerateFiles("*.*", SearchOption.AllDirectories)
                PassFile = currentFile.FullName
                Dtaken = GetProperty(PassFile, 12)
                'Dtaken = "8/5/2014"
                'Dtaken2 = IsDate(Dtaken)
                If Dtaken > cutoffDate Then
                    outputFile.WriteLine(currentFile.FullName)
                End If
            Next
        End Using

    End Sub

    Function GetProperty(strFile, n)
        Dim objShell As Object
        Dim objFolder
        Dim objFolderItem
        Dim i
        Dim strPath
        Dim strName
        Dim intPos

        On Error GoTo ErrHandler

        intPos = InStrRev(strFile, "\")
        strPath = Left(strFile, intPos)
        strName = Mid(strFile, intPos + 1)
        objShell = CreateObject("shell.application")
        objFolder = objShell.NameSpace(CObj(strPath))
        objFolderItem = objFolder.ParseName(strName)
        If Not objFolderItem Is Nothing Then
            GetProperty = objFolder.GetDetailsOf(objFolderItem, n)
            GetProperty = Left(GetProperty, InStrRev(GetProperty, " ") - 1)
            GetProperty = Left(GetProperty, InStrRev(GetProperty, " ") - 1)
        End If

ExitHandler:
        objFolderItem = Nothing
        objFolder = Nothing
        objShell = Nothing
        Exit Function

ErrHandler:
        MsgBox(Err.Description, vbExclamation)
        Resume ExitHandler
    End Function


End Module

Answer 1

那个代码让我很难过。它遵循一些对 vb6/vbscript 时代有意义的约定，但对 .Net 代码不是很好。结果是大部分代码都在复制 .Net Framework 为您处理（并且做得更好）的工作。我会为你拥抱Using 块而表扬你，所以有希望。

此代码更好地利用了 .Net 框架。它从不将任何日期值呈现为字符串，从而完全回避了您的问题。

Imports System.IO

Module Module1

    Sub Main()
        Dim topLevelFolder As New DirectoryInfo("C:\Users\amitchell\Desktop\test1\")
        Dim cutoffDate As DateTime = DateTime.Now.AddDays(-30).Date

        Using outputFile As New StreamWriter("output_file.txt")
            Dim files = topLevelFolder.EnumerateFileSystemInfos("*.*", SearchOption.AllDirectories).
                   Where( Function(f) f.CreationTime > cutoffDate )
            For Each file in files
                outputFile.WriteLine(file.FullName)
            Next file
        End Using
    End Sub

End Module

Answer 2

您在其中一个 cmets 中提供的日期字符串在每个日期部分 (?8/?5/?2014) 的开头包含三个 U+0000 字符，其中 ? 表示出现 U+0000

您需要去掉这些才能使日期生效。

Answer 3

我不知道为什么一个String 能在另一个不能工作的地方工作。您通常必须将 String 转换为 DateTime 才能比较它们。请尝试以下操作：

Dim dt As DateTime = DateTime.Parse(Dtaken)

然后

If dt > cutoffDate Then

编辑：我将 Joel 的答案投票为最可能的解决方案，但为了附上 cmets，我将把它保留在这里。