Slette mapper

Dim oFSys As Scripting.FileSystemObject
Set oFSys = New Scripting.FileSystemObject
sPath = \"A:\\\"
   
If oFSys.FolderExists(sPath) Then
    Set myDrive = oFSys.GetFolder(sPath)
    Set myFolders = myDrive.SubFolders
    For Each Item In myFolders
        Item.Delete
    Next
End If

Set oFSys = Nothing



- ovenstående script gør det du beder om.

/nuno

husk flueben i

Menu>Project>References>Microsoft Scripting Runtime

TUSIND TAK nuno