Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Lista svih fajlova u nekom folderu u tabelu

[es] :: Access :: Lista svih fajlova u nekom folderu u tabelu

[ Pregleda: 1202 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

emol
Hrastnik, Slovenija

Član broj: 258426
Poruke: 34
*.dial-up.dsl.siol.net.



Profil

icon Lista svih fajlova u nekom folderu u tabelu16.05.2010. u 12:38 - pre 170 meseci
Ja ovo koristim za generiranje linkova do dokumenata (shema pakiranja).
Code:

Public Sub GetFilesPak(strPath As String)
   Dim rs As Recordset
   Dim strFile, strPot As String, strDate As Date
   CurrentDb.Execute "Delete * From tblPotNalaganja", dbFailOnError
   Set rs = CurrentDb.OpenRecordset("tblPotNalaganja", dbOpenDynaset)
   strPot = "G:\SKUPNO\meritve\Nalaganje\Special\"
   strFile = dir(strPath, vbNormal)
   Do
      If strFile = "" Then
        GoTo ExitHere
      End If
      strDate = FileDateTime(strPath & strFile)
      rs.AddNew
      rs!Pot = strPot & strFile
      rs!DATUM = strDate
      rs!izdelek = left(strFile, 11)
      rs.Update
      strFile = dir()
   Loop
ExitHere:
   Set rs = Nothing
   
End Sub
 
Odgovor na temu

[es] :: Access :: Lista svih fajlova u nekom folderu u tabelu

[ Pregleda: 1202 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.