Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Folder information

Sub cmdFolderInfo_Click()     Dim myFileSystemObject As FileSystemObject, curFolder As folder     Set myFileSystemObject = New FileSystemObject     Set curFolder = myFileSystemObject.GetFolder("c:\Java_Dev\")     With curFolder         Debug.Print "Created: " & .DateCreated & vbCrLf         Debug.Print "Last Accessed: " & .DateLastAccessed & vbCrLf         Debug.Print "Last Modified: " & .DateLastModified & vbCrLf         Debug.Print "Size: " & Format(.Size / 1000#, "#0.00") & "KB"     End With     Set myFileSystemObject = Nothing     Set curFolder = Nothing End Sub