Thread: Cut and Paste folder information

Hi runnymede15june1215
the folder infomation attributes can be access like files eg...

Sub InfFolder()
    Dim fs, strFolder As String, objFolder, colFiles
    strFolder = InputBox("Enter the folder full name:")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fs.GetFolder(strFolder)
    Set colFiles = objFolder.Files ' files in in folder is a collection
    MsgBox "files in the folder:= " & colFiles.Count & chr(10) & _
           " Path:= " & objFolder.Path & chr(10) & _
           " size:= " & objFolder.Size & chr(10) & _
           " Parent Folder:= " & objFolder.ParentFolder & chr(10) & _
           " attributes:= " & objFolder.Attributes & chr(10) & _
           " date created:= " & objFolder.DateCreated & chr(10) & _
           "drive:= " & objFolder.Drive & chr(10) & _
           "type:= " & objFolder.Type

End Sub