Filer

Dim oFSys As Scripting.FileSystemObject
Set oFSys = New Scripting.FileSystemObject
sPath = \"E:\\\"
   
If oFSys.FolderExists(sPath) Then
    Set myFolder = oFSys.GetFolder(sPath)
    Set SubFolders = myFolder.SubFolders
    For Each Item In SubFolders
        Debug.Print Item.Name
    Next
End If
Set oFSys = Nothing


/nuno

husk i Menu>Project>References at sætte et flueben i Microsoft Scripting Runtime - ellers har du ikke adgang til FileSystemObject

/nuno

hov - det var bare undermapperne jeg listede - læste kke spsm ordentligt... 2 min.

Dim oFSys As Scripting.FileSystemObject
Set oFSys = New Scripting.FileSystemObject
sPath = \"E:\\wwwroot\\\"
   
If oFSys.FolderExists(sPath) Then
    Set myFolder = oFSys.GetFolder(sPath)
    Set myFiles = myFolder.Files
    For Each Item In myFiles
        Debug.Print Item.Name
    Next
End If
Set oFSys = Nothing




sådan.... det var bedre

debug.print er self. der hvor jeg skriver de enkelte filnavne ud
til immediate vinduet
/nuno

Kanon! Det virker sku bare :-)