filer, mapper og størrelser

FileName = "david.txt"
Folder = "C:\"
FileSize = FileLen(Folder & FileName)

Hvad så med resten?

Hvad ønsker du mere ?

Hvis det du ønsker er at liste samtlige filer og mapper, se flg. :

Private Type TFileInfo
  FileName As String
  FolderName As String
  FileSize As Long
End Type

Private Sub ListFiles(ByVal Folder As String, ByRef FileInfo() As TFileInfo, ByRef FileIndex As Long)
  Dim DirList() As String
  Dim iList As Long
  Dim cList As Long
  cList = 256
  ReDim DirList(cList) As String
  Dim FileName As String
  ' Get List of SubFolders and Informations about Files
  If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
  FileName = Dir(Folder & "*.*", vbDirectory)
  Do Until FileName = ""
    If (FileName <> ".") And (FileName <> "..") Then
      If (GetAttr(Folder & FileName) And vbDirectory) <> 0 Then
        ' Add Folder to DirList
        DirList(iList) = FileName
        iList = iList + 1
        If iList = cList Then
          cList = cList + 128
          ReDim Preserve DirList(cList) As String
        End If
      Else
        ' Add Informations to FileInfo
        FileInfo(FileIndex).FolderName = Folder
        FileInfo(FileIndex).FileName = FileName
        FileInfo(FileIndex).FileSize = FileLen(Folder & FileName)
        FileIndex = FileIndex + 1
        If FileIndex = UBound(FileInfo) Then
          ReDim Preserve FileInfo(FileIndex + 128) As TFileInfo
        End If
      End If
    End If
    ' Get Next FileName
    FileName = Dir
  Loop
  ' ListFiles within SubFolders
  For iList = iList - 1 To 0 Step -1
    Call ListFiles(Folder & DirList(iList), FileInfo(), FileIndex)
  Next
End Sub

Private Sub Form_Load()
  Dim FileInfo() As TFileInfo
  ReDim FileInfo(256) As TFileInfo
  Dim FileIndex As Long
  Call ListFiles("C:\", FileInfo(), FileIndex)
End Sub

JEg prøver lige at forklare det...

Jeg har en database med filname, filsize og fildir
F.eks:
1 - c:\ pedersen.txt 111 KB
2 - c:\kurt\ pedersen2.txt 222 kb

osv...

Den skal så kunne tage og kigge i et bestemt dir efter om der er nogle filer der er i database der IKKE er på harddisken og omvendt...

Forstod du det?

Det burde du kunne opnå med mit svar (bortset fra database opslag, men den del af problemet har du vel allerede en løsning på, eller hvad ?)

JEg har lavet den der kigger om der er nogle filer fra databasen der ikke er på harddisken, men ikke den anden vej... Og jeg kan ikke lige gennemskue det du har givet mig der.

Hvad er det du ikke kan gennemskue ?

Hvordan man løber et dir igennem inklusiv subdirs... Og menes vi løber, kan den kunne checke dir, filnavn og size

Det er netop dette mit svar gør.
Hvis du har svært ved at se hvordan koden fungerer, så prøv at køre den i IDE'en og se hvordan det fungerer.

Når keg prøvet at køre det hele skriver den file not found???

Hvor i koden ?

Det gør den ikke nu... Men der er jo ikke noget resultat iform af en txt fil, eller lign... Kan du ikke prøve at forenkle det lidt... Jeg giver gene flere point

Rutinen returnerer et Array af typen TFileInfo
TFileInfo består af 3 elementer :
  FileName As String
  FolderName As String
  FileSize As Long
Dette er meget mere brugbart end at returnere resultatet i en tekstfil, som du så bagefter skal gennemgå.

jeg har så prøvet at sige msgbox ubound(fileinfo) men der kommer inden ting...

Hvis du gerne vil have en tekstfil, kan du erstatte
        ' Add Informations to FileInfo
        FileInfo(FileIndex).FolderName = Folder
        FileInfo(FileIndex).FileName = FileName
        FileInfo(FileIndex).FileSize = FileLen(Folder & FileName)
Med følgende
        ' Add Informations to FileInfo
        Print #1, Folder & "," & FileName & "," & FileLen(Folder & FileName)
Hvor du tidligere har åbnet en fil som #1

Jeg kan ikke få det til at virke...

Husk at åbne filen : F.eks.
Open "C:\File.txt" For Output As #1
og efter du er færdig
Close #1