いつも教えて頂き有難う御座います。
一年以内に作成したFileのみ選択してList1.に表示したく
下記のようにコードを書きましたが、
Errorもおきず、List1.も表示されず,
その後に進みません。どこが悪いのでしょうか?
ご指導のほどお願いいたします。
'----------------------------------------
Dim DocFile() As String
Dim strDoc  As String
Dim vntD As Variant
Dim Ret As Variant
Dim myRet As String

    Ret = DateAdd("yyyy", -1, Date)
    myRet = Str$(Ret)
    
    List1.Clear: vntD = 0
    strPath = "C:\Documents and Settings\Owner\My Documents\Dog\"
    
    strDoc = Dir$(strPath & "*.Doc")
        Do While strDoc <> ""
            vntD = vntD + 1
            ReDim Preserve DocFile(vntD)
            DocFile(vntD) = strDoc
            strDoc = Dir$
        Loop

For vntI = 1 To vntD
    If Left$(FileDateTime(DocFile(vntI)),10) > myRet Then
            List1.AddItem DocFile(vntI)
    End If
   Next
'--------------------------------------------
これを取れば, すべてのFileが表示されて上手くいきます↓
If Left$(FileDateTime(DocFile(vntI)),10) > myRet Then
End If
また これも同じでした↓
Dim Ret As String
myDet=Str$(FileDateTime(DocFile(vntI)))
If Left$(myDet),10) > myDet Then
宜しくお願いいたします。
  

> If Left$(FileDateTime(DocFile(vntI)),10) > myRet Then

If DateValue(FileDateTime(DocFile(vntI))) > DateValue(myRet) Then

型について調べてみてください。

> > If Left$(FileDateTime(DocFile(vntI)),10) > myRet Then
>
> If DateValue(FileDateTime(DocFile(vntI))) > DateValue(myRet) Then
>
> 型について調べてみてください。
リルさん有難う御座いました。
お礼が遅くなり申し訳御座いません。
昨日より試しているのですが、上手く出来ません。
型について もう少し勉強します。

> 昨日より試しているのですが、上手く出来ません。
> 型について もう少し勉強します。

私の環境(Win2000,VB6)では、前回書き込みした内容で判定できましたが。
ファイルの日付が正常に取得できているかデバッグしてみてください。

> > 昨日より試しているのですが、上手く出来ません。
> > 型について もう少し勉強します。
>
> 私の環境(Win2000,VB6)では、前回書き込みした内容で判定できましたが。
> ファイルの日付が正常に取得できているかデバッグしてみてください。
リルさん有難う御座いました。
また 御礼が遅くなり申し訳御座いません。
解決いたしました。有難う御座いました。
これからも宜しくお願いいたします。