tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 一年以内に作成したFileのみ選択
投稿日: 2008/03/05(Wed) 16:51
投稿者Do_Shirouto
いつも教えて頂き有難う御座います。
一年以内に作成した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
宜しくお願いいたします。
  

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。