Click here to Skip to main content
15,914,924 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Month Calendar usage Pin
dan!sh 16-Oct-09 6:47
professional dan!sh 16-Oct-09 6:47 
GeneralRe: Month Calendar usage Pin
EliottA16-Oct-09 4:39
EliottA16-Oct-09 4:39 
AnswerRe: Month Calendar usage [modified] Pin
Dave Kreskowiak16-Oct-09 4:41
mveDave Kreskowiak16-Oct-09 4:41 
QuestionVB6 COM application calling WCF Pin
SaraLongK15-Oct-09 22:13
SaraLongK15-Oct-09 22:13 
AnswerRe: VB6 COM application calling WCF Pin
Mycroft Holmes16-Oct-09 23:32
professionalMycroft Holmes16-Oct-09 23:32 
QuestionCopying selected text portion as image!!!! Pin
mailtosanjeev.jha15-Oct-09 20:01
mailtosanjeev.jha15-Oct-09 20:01 
AnswerRe: Copying selected text portion as image!!!! Pin
Eddy Vluggen16-Oct-09 3:50
professionalEddy Vluggen16-Oct-09 3:50 
QuestionVBSCRIPT Pin
darrinjowen15-Oct-09 18:54
darrinjowen15-Oct-09 18:54 
Can some one tell me what is wrong here, I keep getting an error on line 14 char1 on this script


I am trying to get a count of folders and files as well as sub folders and files in the same directory tree structure...

Thanks..

<br />
Dim totFileCount,totFolderCount<br />
Set fs = CreateObject("Scripting.FileSystemObject")<br />
startFolder = "C:\Home\"<br />
<br />
totFileCount = fs.GetFolder(startFolder).Files.Count<br />
CountSubfolderFiles fs.GetFolder(startFolder)<br />
CountSubfolderFolders fs.GetFolder(startFolder)<br />
Wscript.echo "TOTAL FILES = ", totFileCount<br />
Wscript.echo "TOTAL FOLDERS = ", totFolderCount<br />
Wscript.Quit<br />
<br />
Sub CountSubfolderFiles(Folder)<br />
For Each Subfolder in Folder.SubFolders<br />
totFileCount = totFileCount + SubFolder.Files.Count<br />
CountSubfolderFiles Subfolder<br />
Next<br />
End Sub<br />
<br />
Sub CountSubfolderFolders(Folder)<br />
For Each Subfolder in Folder.SubFolders<br />
WScript.Echo Folder.Path<br />
totFolderCount = totFolderCount + 1<br />
CountSubfolderFolders Subfolder<br />
Next<br />
End Sub<br />

AnswerRe: VBSCRIPT Pin
Ashfield15-Oct-09 21:35
Ashfield15-Oct-09 21:35 
QuestionVBSCRIPT Pin
darrinjowen15-Oct-09 18:35
darrinjowen15-Oct-09 18:35 
QuestionListbox SelectedIndexChanged event fires when selected item is clicked Pin
miwtech15-Oct-09 14:24
miwtech15-Oct-09 14:24 
AnswerRe: Listbox SelectedIndexChanged event fires when selected item is clicked Pin
Luc Pattyn15-Oct-09 14:38
sitebuilderLuc Pattyn15-Oct-09 14:38 
AnswerRe: Listbox SelectedIndexChanged event fires when selected item is clicked Pin
Mycroft Holmes15-Oct-09 20:00
professionalMycroft Holmes15-Oct-09 20:00 
QuestionObtaining Aggregate information from elements within a dataset Pin
Curtbroo15-Oct-09 8:04
Curtbroo15-Oct-09 8:04 
AnswerRe: Obtaining Aggregate information from elements within a dataset Pin
Curtbroo19-Oct-09 9:45
Curtbroo19-Oct-09 9:45 
Question64base string to image conversion and imagelist problem Pin
Erwin Wolff15-Oct-09 5:23
Erwin Wolff15-Oct-09 5:23 
AnswerRe: 64base string to image conversion and imagelist problem Pin
Luc Pattyn15-Oct-09 5:47
sitebuilderLuc Pattyn15-Oct-09 5:47 
GeneralRe: 64base string to image conversion and imagelist problem Pin
Erwin Wolff15-Oct-09 6:04
Erwin Wolff15-Oct-09 6:04 
AnswerRe: 64base string to image conversion and imagelist problem Pin
Erwin Wolff15-Oct-09 15:12
Erwin Wolff15-Oct-09 15:12 
QuestionFile sharing Pin
offroaderdan15-Oct-09 4:16
offroaderdan15-Oct-09 4:16 
AnswerRe: File sharing Pin
vaghelabhavesh15-Oct-09 4:21
vaghelabhavesh15-Oct-09 4:21 
GeneralRe: File sharing Pin
offroaderdan15-Oct-09 4:34
offroaderdan15-Oct-09 4:34 
AnswerRe: File sharing Pin
Kschuler15-Oct-09 4:40
Kschuler15-Oct-09 4:40 
GeneralRe: File sharing Pin
offroaderdan15-Oct-09 4:47
offroaderdan15-Oct-09 4:47 
GeneralRe: File sharing Pin
Kschuler15-Oct-09 4:51
Kschuler15-Oct-09 4:51 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.