Hej

Jag h¨åller på att skriva ett program där man jämför storlekar på filer. Alltså Jag tar en fil, denna fil skall sedan jämföras med alla filer som ligger under samma mapp. (många underkataloger som även de skall kollas)

Vet inte hur jag skall börja. Storleken på filen är ju lätt, men hur kollar jag mot alla filer automatiskt.

\jonas

Läs i VB-Hjälpen om DIR - Funktionen

"Saxxat ur VB-Hjälpen"

<code>

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir

' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

</code>

[Peter.H]

Ok, tackar

Har kommit en bit på vägen nu. Det löser sig nog med detta.

\jonas