473,320 Members | 1,853 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes and contribute your articles to a community of 473,320 developers and data experts.

Microsoft Scripting Runtime #2

ADezii
8,834 Expert 8TB
This is the 2nd Tip in a series of Tips on the Microsoft Scripting Runtime Library. The 1st Tip related to Drives, while this Tip will concentrate on the Folders (Directories) in your PC and various methods to retrieve information from and how to manipulate them. The code should be self explanatory and basically documents itself. Should there be any questions related to this Topic, please feel free to ask.
Expand|Select|Wrap|Line Numbers
  1. 'Accessing Folder Properties
  2. Dim fso As FileSystemObject, fldr As Folder
  3. Set fso = New Scripting.FileSystemObject    'OR
  4. 'Set fso = CreateObject("Scripting.FileSystemObject")
  5.  
  6. 'Creates an Instance of a Folder
  7. Set fldr = fso.GetFolder("C:\Windows\System32")
  8.  
  9. Debug.Print "Folder Properties of " & fldr.Path
  10. Debug.Print "  Folder Name: " & fldr.Name
  11. Debug.Print "  Folder Size: " & FormatNumber(fldr.Size, 0, vbFalse, vbFalse, vbTrue) & " bytes"
  12. Debug.Print "  Folder Created: " & fldr.DateCreated
  13. Debug.Print "  Folder Path: " & fldr.Path
  14. Debug.Print "  Folder Last Modified: " & fldr.DateLastModified
  15. Debug.Print "  Folder Last Accessed: " & fldr.DateLastAccessed
  16. Debug.Print "  Folder Drive: " & fldr.Drive
  17. Debug.Print "  Files in Folder: " & FormatNumber(fldr.Files.Count, 0, vbFalse, vbFalse, vbTrue) & " files"
  18. Debug.Print "  Is this a Root Folder: " & fldr.IsRootFolder
  19. Debug.Print "  Parent Folder: " & fldr.ParentFolder
  20. Debug.Print "  Folder Path: " & fldr.Path
  21. 'Could also use the GetBaseName Method of the File System Object
  22. Debug.Print "  Folder Short Name: " & fldr.ShortName
  23. Debug.Print "  Folder Short Path: " & fldr.ShortPath
  24. Debug.Print "  Number of Sub-Folders: " & fldr.SubFolders.Count
  25. Debug.Print "  Folder Type: " & fldr.Type
  26. Debug.Print
  27.  
  28.  
  29. 'Code that creates a Temporary Folder (fso previously created)
  30. Dim msTemporaryFolder As String
  31. msTemporaryFolder = fso.GetSpecialFolder(TemporaryFolder).Path & "\"
  32. Debug.Print msTemporaryFolder
  33. Debug.Print
  34.  
  35.  
  36. 'Code to see if a Folder exists (fso previously created)
  37. 'Could also use the FolderExists Method of the File System Object
  38. If fso.FolderExists("C:\Test") Then
  39.   Debug.Print "Folder exists"
  40. Else
  41.   Debug.Print "Folder does not exist"
  42. End If
  43. Debug.Print
  44.  
  45.  
  46. 'Code to create a Folder (fso previously created)
  47. 'Could also use the CreateFolder Method of the File System Object
  48. Set fldr = fso.CreateFolder("C:\Windows\System32\Temp Extraction Area")
  49. Debug.Print "Created Folder " & fldr.Name
  50.  
  51.  
  52. 'Code to Delete a Folder (fso previously created)
  53. 'Could also use the DeleteFolder Method of the File System Object
  54. Set fldr = fso.GetFolder("C:\Folder 1\Folder 2\Folder to Delete")
  55. fldr.Delete True       '"Folder to Delete" is Deleted
  56.  
  57.  
  58. 'Code to Move a Folder (fso previously created)
  59. 'Could also use the MoveFolder Method of the File System Object
  60. Set fldr = fso.GetFolder("C:\Folder1\Folder2\Folder3")
  61. fldr.Move "C:\"     '"Folder3" moved to C:\
  62.  
  63.  
  64. 'Code to Copy a Folder (fso previously created)
  65. 'Could also use the CopyFolder Method of the File System Object
  66. Set fldr = fso.GetFolder("C:\Folder1\Folder2")
  67. fldr.Copy "C:\List", True       'Copies "Folder2" to C:\List
OUTPUT:
Expand|Select|Wrap|Line Numbers
  1. Folder Properties of C:\WINDOWS\system32
  2.   Folder Name: system32
  3.   Folder Size: 888,994,639 bytes
  4.   Folder Created: 10/1/2005 2:46:52 AM
  5.   Folder Path: C:\WINDOWS\system32
  6.   Folder Last Modified: 2/5/2008 7:04:21 PM
  7.   Folder Last Accessed: 2/5/2008 7:04:22 PM
  8.   Folder Drive: C:
  9.   Files in Folder: 2,309 files
  10.   Is this a Root Folder: False
  11.   Parent Folder: C:\WINDOWS
  12.   Folder Path: C:\WINDOWS\system32
  13.   Folder Short Name: System32
  14.   Folder Short Path: C:\Windows\System32
  15.   Number of Sub-Folders: 50
  16.   Folder Type: File Folder
  17.  
  18. C:\DOCUME~1\Armund\LOCALS~1\Temp\
  19.  
  20. Folder exists
  21.  
  22. Created Folder Temp Extraction Area
Feb 9 '08 #1
0 5126

Sign in to post your reply or Sign up for a free account.

Similar topics

1
by: MatthewRoberts | last post by:
Howdy All, I am having difficulty with two-way communication across AppDomains in an attempt to dynamically script applications. Everything works as expected, except when using ByRef parameters....
0
by: fiona | last post by:
Catalyst Releases Scripting Editions of SocketTools Client and server-side development for Active Server Pages and PHP. Yucca Valley, CA, May 25, 2005 - Catalyst Development Corp...
17
by: Karl Irvin | last post by:
To use the Textstream object, I had to set a Reference to the Microsoft Scripting Runtime. This works good with A2000 Is the Scripting Runtime included with A2002 and A2003 so the Reference...
1
by: Karl Irvin | last post by:
To use the Textstream object, I had to set a Reference to the Microsoft Scripting Runtime. This works good with A2000 Is the Scripting Runtime included with A2002 and A2003 so the Reference...
14
by: frostalicious | last post by:
Used VB.NET (on my client PC) to convert VB6 executable to .NET executable. Placed the .exe file on a network drive on my server. From client, ran .NET Wizards "Trust an Assembly" to make the...
1
by: PaulieS | last post by:
Hi all. Am migrating a customer from IIS5 on W2K server to IIS6 on W2K3. Zipped all the websites and unzipped them to the identical locations on new server. Used IISMT to migrate metabase. ...
7
ADezii
by: ADezii | last post by:
The next series of Tips will involve the Microsoft Scripting Runtime Library (Scrrun.dll). This Library is, in my humble opinion, one of the most useful and practical Libraries ever created. With the...
0
ADezii
by: ADezii | last post by:
This is the 3rd in a series of Tips dealing specifically with the Microsoft Scripting Runtime Library. In this Tip, we'll show you how to return specific Properties relating to Files, as well as...
0
ADezii
by: ADezii | last post by:
This is the last in a series of Tips involving the Microsoft Scripting Runtime Library and deals with creating, opening, writing to, reading from, and closing Text Files via this Library. At this...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.