Αναγνωση αρχειων απο access

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
alaou
Δημοσιεύσεις: 8
Εγγραφή: 20 Ιουν 2005 09:56

Αναγνωση αρχειων απο access

Δημοσίευση από alaou » 28 Απρ 2006 19:02

Είμαι αρχάριος στην Access και αυτό που θέλω να κάνω είναι να έχω σε πίνακα της Access τα ονόματα αρχείων και το μέγεθος τους.

Π.χ. να διαβάζει από το C:\Windows και να τα περνάει σε πίνακα της Access όλα τα ονόματα των αρχείων σε ένα πεδίο και σε ένα άλλο το μέγεθος τους.Γίνεται?

Ευχαριστώ.

Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Αναγνωση αρχειων απο access

Δημοσίευση από dimsis » 28 Απρ 2006 20:16

Από το net:

If you add the list of files to an Access table you can easily bind it to
your control:

How to Add Directory File Names to an Access Table:

Create a table named tblDirectory with 2 fields:
FileName (Text 250)
FileDate (Date/Time)

Call the code below by pressing Ctrl-G to open the debug window and type:
GetFiles("c:\windows\")

Paste this code into a regular module:

Sub GetFiles(strPath As String)
Dim rs As Recordset
Dim strFile As String, strDate As Date

'clear out existing data
CurrentDb.Execute "Delete * From tblDirectory", dbFailOnError

'open a recordset
Set rs = CurrentDb.OpenRecordset("tblDirectory", dbOpenDynaset)

'get the first filename
strFile = Dir(strPath, vbNormal)
'Loop through the balance of files
Do
'check to see if you have a filename
If strFile = "" Then
GoTo ExitHere
End If
strDate = FileDateTime(strPath & strFile)
rs.AddNew
'to save the full path using strPath & strFile
'save only the filename
rs!FileName = strFile
rs!FileDate = strDate
rs.Update

'try for next filename
strFile = Dir()
Loop

ExitHere:
Set rs = Nothing
MsgBox ("Directory list is complete.")
End Sub

alaou
Δημοσιεύσεις: 8
Εγγραφή: 20 Ιουν 2005 09:56

Αναγνωση αρχειων απο access

Δημοσίευση από alaou » 29 Απρ 2006 16:52

Όπως είπα,είμαι αρχάριος...Το έφτιαξα αλλά αποτέλεσμα 0! Πως τα συνδέω? 'Η πως κάνω τον κώδικα να λειτουργήσει?!! :cry:

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες