Solved

how to find all .jpg files in my computer using FileSystemObject, the output is to a txt file

Posted on 2009-04-14
11
1,715 Views
Last Modified: 2013-11-09
How can I write a script to list all .jpg files in my computer by using FileSystemObject. The result should be put in a text file.
0
Comment
Question by:vbsnoob
  • 3
  • 2
  • 2
  • +3
11 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 125 total points
ID: 24137960
This should do it..
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOut = objFSO.CreateTextFile ("C:\JPGReport.txt")
Set objFolder = objFSO.GetFolder("C:\")
 
Set colFiles = objFolder.Files
For Each objFile in colFiles
  If LCase(Right(objFile.Name, 3)) = "jpg" Then objOut.WriteLine file
Next
 
ScanFolders objFSO.GetFolder("C:\")
objOut.Close
wscript.quit
 
Sub ScanFolders(strFolder)
    For Each strSubFld in strFolder.SubFolders
        Set objFolder = objFSO.GetFolder(strSubFld.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
          If LCase(Right(objFile.Name, 3)) = "jpg" Then objOut.WriteLine file
        Next
        ScanFolders strFolder
    Next
End Sub

Open in new window

0
 

Author Comment

by:vbsnoob
ID: 24138157
thank you very much for ur speedy help!
0
 
LVL 30

Expert Comment

by:hnasr
ID: 24138661
:) but you need to replace WriteLine file file with WriteLine file objFile
0
DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

 
LVL 67

Expert Comment

by:sirbounty
ID: 24138677
oops... :^)
0
 
LVL 30

Expert Comment

by:hnasr
ID: 24138691
:) but you need to replace WriteLine file with WriteLine objFile
0
 
LVL 16

Assisted Solution

by:t0t0
t0t0 earned 125 total points
ID: 24139544
Why not simply use a DOS command as in:

   dir /a-d /b /s c:\*.jpg >jpgfiles.txt

The results can be viewed by opening the JPGFILES.TXT in notepad etc...
0
 
LVL 45

Expert Comment

by:aikimark
ID: 24150000
I think the t0t0 suggestion is the best.
0
 
LVL 16

Expert Comment

by:t0t0
ID: 24153769
aikimark

Thank you.
0
 
LVL 6

Expert Comment

by:Justin_W_Chandler
ID: 24167765
OBVIOUSLY, he has a reason for doing it in VB. I wouldn't be surprised if he's got an assignment for school that he's trying to get some help with.
0
 
LVL 16

Expert Comment

by:t0t0
ID: 25850454
i'm good wih that!
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
This article will show, step by step, how to integrate R code into a R Sweave document
The viewer will learn how to dynamically set the form action using jQuery.
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question