filliste til database

Loop over alle filnavne - for hvert filnavn, tilføjer du til databasen...

Går ud fra at du selv kan finde ud af at smide dem i en database. Måden du finder ALLE filnavne på er fx. ved en rekursiv funktion, der kalder sig selv:


Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
DeleteFile ".txt", fso.GetFolder("c:\temp")


Private Sub FindFile(pattern As String, folder As Scripting.folder)
Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      FindFile pattern, tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If lcase(right(tmpFile.Name,4)) = lcase(pattern) Then
        'TILFØJ tmpfile.Name TIL DATABASE
      End If
    Next
  End If
End Sub

Du kan jo omskrive, hvis du ikke behøver et pattern.

hmm ... den nemmeste måde er jo simpelthen:

Sub iterateFolder(p_strFolder As String)
    Dim objFSO As FileSystemObject
    Dim objFolder As Folder
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(p_strFolder)
   
    For Each subFolder In objFolder.SubFolders
        iterateFolder (subFolder.Path)
    Next
   
   
    If (Not IsEmpty(objFolder.Files)) Then
        For Each objFile In objFolder.Files
            ' INSERT INTO DATABASE
        Next
    End If
End Sub

denne kalder du så med:

Call iterateFolder("c:\en folder")

Husk at lave en reference til "Microsoft Scripting Runtime" i dit projekt

/nute

denne check:

If (Not IsEmpty(objFolder.Files)) Then

er strengt taget ikke nødvændig ...

For Each subFolder In objFolder.SubFolders
    iterateFolder (subFolder.Path)
Next
   
For Each objFile In objFolder.Files
    ' INSERT INTO DATABASE
Next

er nok

Fancy.

"folder As Scripting.folder" Hvordan bruges denne var ?

sådan her ?
FindFile("*.*", DIR.Path)

Det er ellers en meget cool måde - Jeg havde nok lavet den 10 gange så stor :-)

nute --> Hvordan gør jeg det ??
Husk at lave en reference til "Microsoft Scripting Runtime" i dit projekt

Menuen 'Projekt > references" og så vælger du "Microsoft Scripting Runtime" fra listen

/nute

Hov - bruger du min løsning (som er 99% identisk med den fra nute) så ret lige

fra
  DeleteFile ".txt", fso.GetFolder("c:\temp")
til
  FindFile ".txt", fso.GetFolder("c:\temp")

Det er en gammel rutine der sletter filer, jeg har omskrevet. Derfor :o)

Hvis du ikke vil bruge pattern, sletter du bare IF-sætningen i FindFile functionen

Jeg får en runtime error type 13 - type mismatch  i denne linje ?

    Set objFolder = objFSO.GetFolder(p_strFolder)

Jeg omskriver lige min løsning, så den er til at bruge via Copy-Paste

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
PutFilesInDatabase fso.GetFolder("c:\temp")


Private Sub PutFilesInDatabase(folder As Scripting.folder)
  Dim tmpFolder As Scripting.folder
  Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      PutFilesInDatabase tmpFolder '< BEMÆRK - funktionen kalder sig selv. Det er det smarte :o)
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      'TILFØJ tmpfile.Name TIL DATABASE
    Next
  End If
End Sub

Husk at lave en reference til "Microsoft Scripting Runtime" i dit projekt

martin_moth --> Det virker skide godt :-)

også tak til nute, jeg kunne desværre ikke få det til at virke

det gør ikke noget. jeg kom jo alligevel for sent ;o] jeg får det hvertfald til at fungere, sååå ...

/nute

- Og SÅ skal der godkendes et svar :o)

- Mikker

nute: Vi kan da godt dele

martin_moth >> det er helt i orden. jeg var jo også 10 minutter senere end dig ... jeg får tage "straffen" for at ikke refreshe inden jeg poster et svar :o]

/nute

Skam dig!

:o)

det gør jeg også ... GRR !!

;o]

Jeg fik 60 p, du fik ingen!!!!

Naa na-na-naaaaaa na!!!

buhuu ... drilling er ikke sjov :,(

men jeg havde den bedste løsningen ... hehe ...

;-)

Nååå - havde du nu det?
:o)

Over & out, Martin

;o]

over and out ...

Hvordan laver man en database?

Du skal bruge en ovn, gær, mel og en masse data... Nej - prøv i et nyt spørgsmål, i stedet for et 2 år gammelt lukket et!

og vær lidt mere konkret

Nånånånå..