Please help loading variables from file

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Please help loading variables from file

Logged in as: Guest

arrSession:exec spGetSession 2,2,61059

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Please help loading variables from file
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Please help loading variables from file - 6/4/2008 10:38:02 PM

tomas

Posts: 11
Score: 0
Joined: 1/2/2008
Status: offline

Hi, I found this script which uses variables declared in UCase(strTemp) = UCase(".mp3") to look for files with matching extensions and save it in the search.log with location path, the script can be set to delete the files afterwards too.

'==========================================================================
'
' VBScript Source File 
'
' NAME: rm-recursively.vbs
'
' AUTHOR: Matt Childs
' DATE  : 1/9/2001
'
' COMMENT: Scrip will recursively look in "CheckFolder" for any files with extentions declared in
' "StrSearch" section and delete them writing all in log file delared in "objStream"
'          
'==========================================================================
Dim objFSO
Dim ofolder
Dim objStream

Set objFSO = CreateObject("scripting.filesystemobject")
'create the output file
Set objStream = objFSO.createtextfile("search.log", True)
'specify root of the directory to look in
CheckFolder (objFSO.getfolder("D:\GroupData")), objStream
'display message after all completed, comment out if not wanted
MsgBox "File Search Completed." + vbCr + "Please check d:\search.log for details."

Sub CheckFolder(objCurrentFolder, objLogFile)
 
 Dim strTemp

For Each objFile In objCurrentFolder.Files
        strTemp = Right(objFile.Name, 4)
' list file extentions to search
             If UCase(strTemp) = UCase(".mp3") Or _
                 UCase(strTemp) = UCase(".mp4") _
Then
                 'Got one
                  'get all output
strOutput = CStr(objFile.Name) + "," + CStr(objFile.Path) + "," + CStr(objFile.Size) + "," + CStr(objFile.Type) + "," + CStr(objFile.datelastaccessed)
'strOutput = CStr(objFile.Name) + "," + CStr(objFile.Size)

'get just the file and path
'strOutput = CStr(objFile.Path)

'delete whatever is in strOutput
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set aFile = fso.GetFile( strOutput )
'aFile.Delete
' log
                 objLogFile.writeline strOutput
             End If
    Next
    'Recurse through all of the folders
    For Each objNewFolder In objCurrentFolder.subFolders
            CheckFolder objNewFolder, objLogFile
    Next

End Sub

My question is:
Is there a way of having a text file with extensions listed in there like so;
.mp3
.mp4
.avi
.mpeg
and making a scrip to load these as variables for file search?
Thanks every much for any ideas on that

< Message edited by tomas -- 6/4/2008 10:42:37 PM >

Post #: 1

RE: Please help loading variables from file - 6/5/2008 12:20:17 AM

ebgreen

Posts: 5041
Score: 31
Joined: 7/12/2005
Status: offline

" and making a scrip to load these as variables for file search?"

I'm not sure exactly what you mean by that.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to tomas)

Post #: 2

RE: Please help loading variables from file - 6/5/2008 1:36:23 AM

tomas

Posts: 11
Score: 0
Joined: 1/2/2008
Status: offline

sorry for not expressing myself right... How should the original script changed so instead of declaring variables statically they could be loaded from file?

(in reply to ebgreen)

Post #: 3

RE: Please help loading variables from file - 6/5/2008 4:14:23 AM

ebgreen

Posts: 5041
Score: 31
Joined: 7/12/2005
Status: offline

Aah...in that case, search the forum and read the docs for:

FileSystemObject
.OpenTextFile
.Read
.ReadAll

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to tomas)

Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Please help loading variables from file

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts