Results 1 to 4 of 4
  1. #1
    SHOBiz's Avatar
    Join Date
    Jul 2008
    Wylie, Texas

    Here's on for VBScript boyz

    This is a small section of a script that includes a Subfolder count.
    In that count of SubFolders I need to exclude a folder named "SomeFolder" from that count.

    Everything that seems like it would be so simple has not worked so far. I need to deliver tomorrow by COB and probably will, but any suggestions are appreciated.



    Dim strFolderToSearch, objRootFolder, objFolder, colSubfolders, strOutput
    'strFolderToSearch = strOutputFile
    Set objfso = CreateObject("Scripting.FileSystemObject")
    'Set objRootFolder = objFSO.GetFolder(strFolderToSearch)
    Set objRootFolder = objFSO.GetFolder(strValue & "\" & "Application Data\Apple Computer\MobileSync\Backup")
    Set colSubfolders = objRootFolder.SubFolders
    'Count Phone Profiles
    Dim wParentPath
    wParentPath = objRootFolder
    'Set Args = wscript.Arguments
    With CreateObject("scripting.filesystemobject")
    wParentPath = .GetParentFolderName(Args(0))
    ' WScript.Echo wParentPath
    ' wscript.echo .GetFolder(wParentPath).SubFolders.Count
    objLogFile.Write .GetFolder(wParentPath).SubFolders.Count & "," 'exclude folder name "SomeFolder" in the count here"
    End With


  2. #2
    SHOBiz's Avatar
    Join Date
    Jul 2008
    Wylie, Texas
    Got it this morning. Just did an If Then and For Next loop instead of a SubFolder.count

  3. #3
    Banned User
    Join Date
    Aug 2009
    Discovery Bay, CA
    please explain what all this code means/does for us computer illiterate folks. i'm just sitting here laughing at myself with no clue what that is

  4. #4
    Rampage's Avatar
    Join Date
    Sep 2007
    Holland, Michigan, United States
    its a program written in the visual basic computer language

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Here's one for the GPR Guys..!!!
    By quadzilla in forum Yamaha Open Discussion
    Replies: 21
    Last Post: 06-10-2008, 08:40 AM
  2. Anybody from here bidding on this 00 Virage TX?
    By PolarisNut in forum Polaris Open Discussion
    Replies: 1
    Last Post: 06-07-2008, 09:59 PM
  3. Whats going on for ....
    By sleeplessnMS in forum Yamaha Open Discussion
    Replies: 0
    Last Post: 08-09-2007, 07:27 PM
  4. Supecourse is on for Mooresville!! june 15th, 16th
    By beachboy66 in forum Race Events and News
    Replies: 9
    Last Post: 06-19-2007, 06:15 AM
  5. Here is one for you guys
    By shooter98xpl in forum Yamaha PWC Performance (2-stroke)
    Replies: 0
    Last Post: 09-04-2006, 11:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts