Skip to main content

AccessTr.neT


Tabloda var ise kaydetme

Tabloda var ise kaydetme

Çözüldü #1

Function ListDir(ByVal StartDir As String) As Collection
Dim rs As New ADODB.Recordset
rs.Open "TblDosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim sCurFile As String
Dim sCurDir As String
Dim colDir As Collection

If Right$(StartDir, 1) <> "\" Then StartDir = StartDir & "\"
Set colDir = New Collection
Set ListDir = New Collection

colDir.Add StartDir
While colDir.Count
    'remove current directory from directory list
    sCurDir = colDir.Item(1)
    colDir.Remove 1
    'find all files and subdirectories in current, add to list
    sCurFile = Dir$(sCurDir, vbDirectory)
    
    While Len(sCurFile)
        If (sCurFile <> ".") And (sCurFile <> "..") Then 'get rid of "." and ".."
            If GetAttr(sCurDir & sCurFile) = vbDirectory Then  'add the sub directory
                colDir.Add sCurDir & sCurFile & "\"
            Else 'work on the file
                ListDir.Add sCurDir & sCurFile
                rs.AddNew
                rs!dosya_yolu = sCurDir & sCurFile
                rs!dosya_ismi = sCurFile
                rs.Update
            End If
        End If
        sCurFile = Dir$
    Wend
    DoEvents
Wend
End Function

bu koda bir türlü tabloda var ise kaydetme diye dedirtemedim. Yardımlarınız için şimdiden tşk ederim.
.zip deneme2.zip (Dosya Boyutu: 30,59 KB | İndirme Sayısı: 6)
erdem55, 12-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 27/12/2010, 17:58, Düzenleyen: erdem55.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tabloda var ise kaydetme - Yazar: erdem55 - 27/12/2010, 17:54
Cvp: Tabloda var ise kaydetme - Yazar: mzebek - 27/12/2010, 18:36
Cvp: Tabloda var ise kaydetme - Yazar: erdem55 - 27/12/2010, 18:59
Cvp: Tabloda var ise kaydetme - Yazar: Hayri16 - 27/12/2010, 18:49
Cvp: Tabloda var ise kaydetme - Yazar: erdem55 - 27/12/2010, 19:05
Cvp: Tabloda var ise kaydetme - Yazar: Hayri16 - 27/12/2010, 19:10
Cvp: Tabloda var ise kaydetme - Yazar: erdem55 - 27/12/2010, 19:16
Cvp: Tabloda var ise kaydetme - Yazar: mzebek - 27/12/2010, 19:26
Task