Loop thru folders, grab 0kb file name and export to .txt

Question

Loop thru folders, grab 0kb file name and export to .txt

jasmine-163188

Newbie

Points: 9
More actions
March 30, 2005 at 3:00 am

#74904

hi,
I would like to use the DTS active x script to loop through a folder, check each file, if the file is 0kb, i need to grab the file name and export to .txt file as a list.
below is my sample code:
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
     Set oFS = CreateObject("Scripting.FileSystemObject")
      Set oFolders = oFS.GetFolder("C:\Scripts")
      Set oFiles = oFolders.Files
          For Each oFile In oFiles
               if oFile.Size = 0 then
                      MsgBox ("file size is " & oFile.Size)
                end if
          Next
  Main = DTSTaskExecResult_Success
      Set oFolders = Nothing
      Set oFiles = Nothing
      Set oFile = Nothing
      Set oFS = Nothing
End Function
==========================================================
instead of showing Msgbox ("file size is " & oFile.Size) , i need to grab the file name which is 0kb to a .txt file.
how is it possible to do so?
thanks~

Viewing 6 posts - 1 through 5 (of 5 total)

You must be logged in to reply to this topic. Login to reply

AJ Ahrens SSC-Insane Points: 20676 More actions · Answer 1

You will WRITELINE your oFile to a text file. There are plenty of sample scripts in VB BOL, and on the internet (to include decent from support.microsoft.com) with textstream, writeline, etc... with the FSO (filesystemobject)

Good Hunting!

AJ Ahrens

webmaster@kritter.net