|
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 />
|
|
|
|
|
Well, don't give too much away. What error? Which line of code - without copying, pasting and running which is line 14? Have you tried debugging in any way?
Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP
|
|
|
|
|
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..
Dim totFileCount,totFolderCount
Set fs = CreateObject("Scripting.FileSystemObject")
startFolder = "C:\Home\"
totFileCount = fs.GetFolder(startFolder).Files.Count
CountSubfolderFiles fs.GetFolder(startFolder)
CountSubfolderFolders fs.GetFolder(startFolder)
Wscript.echo "TOTAL FILES = ", totFileCount
Wscript.echo "TOTAL FOLDERS = ", totFolderCount
Wscript.Quit
Sub CountSubfolderFiles(Folder)
For Each Subfolder in Folder.SubFolders
totFileCount = totFileCount + SubFolder.Files.Count
CountSubfolderFiles Subfolder
Next
End Sub
Sub CountSubfolderFolders(Folder)
For Each Subfolder in Folder.SubFolders
WScript.Echo Folder.Path
totFolderCount = totFolderCount + 1
CountSubfolderFolders Subfolder
Next
End Sub
|
|
|
|
|
I'm using Vb.Net 2003
I'm having a problem that the listbox SelectedIndexChanged event fires when a selected item is clicked. It seems logical to me that clicking on an item that is already selected wound not fire the event since the index does not change - but so much for logic.
Is there a way to prevent this from happening?
|
|
|
|
|
miwtech wrote: Is there a way to prevent this from happening?
I don't think so.
Several WinForms Controls have a XxxChanged event that fires somewhat more frequently than one could hope for.
Most often executing an event handler should not cause side effects, so all that is wrong with it is it wastes some CPU cycles, and possibly causes additional screen flicker by Controls being repainted (assuming some properties get changed inside the XxxChanged handler and doublebuffering isn't used). In rare occasions, side effects might occur; to avoid these one should remember and compare the current and the previous state, and only act on a real change.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
Actually the logic of the event is correct. It fires twice when you change the selected item.
1 when the selection changes from the current item to null, I trap this in the event and simply return (if selecteditem = null then return)
2 when the selection changes to the item the UI activates.
So onSelectedItemChanged is precisely what you get.
|
|
|
|
|
Hi Everyone,
I'm new to this forum and I am impressed with the information disseminated here.
So..., I thought I would ask for some help on the following puzzle:
1. I am creating datasets from xml files.
2. In many cases aggregate functions must be performed against some of the columns within the datasets.
3. Is there a way to do this, using existing functions such as Min, Max, StdDev, etc.?
cb
|
|
|
|
|
I found the answer to my own question.
I guess if all else fails, read the directions.
Here is the solution, in case anyone cares::
Create the dataset.
Dim tmpDS as DataSet = fGetNewDataSet()<br />
<br />
Dim tmpVal as Integer = tmpDS.Tables(0).Compute("SUM(Col1)", "Col2>10")
The above works nicely on numeric columns. Non-numeric columns, containing numeric data are no implicitly converted.
cb
|
|
|
|
|
I have problem (that seems to be obvious since I am posting here). I have an application that fetches a 64 base string out of a database and converts it, successfully to an image.
Here is the code:
Dim strImage As String = myRow("itemIcon")
Dim readmem As MemoryStream = New MemoryStream(Convert.FromBase64String(strImage))
Dim myIcon As Bitmap = New Bitmap(readmem)
readmem.Close()
Every control seems to understands the data from myIcon as being a valid bitmap, but when I import the image to an imagelist there seems to be an unreported error (or something like that) and it just doesn't display the image.
Dim tempItem As item
For Each tempItem In mainArrayList
img2.Images.Add(tempItem.ItemID, tempItem.ItemIcon)
img3.Images.Add(tempItem.ItemID, tempItem.ItemIcon)
' img3.Images.Add(imagekey, bitmap)
Next
When I do, by example "me.backgroundimage = tempItem.ItemIcon " it displays quite nicely the image, but it just doenst work with an imagelist.
Anybody an idea?
|
|
|
|
|
Hi,
from a quick read I can see ImageList imposes some limitations on the images, such as a maximum size of 256*256. Your example me.backgroundimage = tempItem.ItemIcon suggests you might exceed that.
Luc Pattyn
I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages
Local announcement (Antwerp region): Lange Wapper? Neen!
|
|
|
|
|
That seems not likely since the images are all 32px x 32px each. It would be a blow since the data from the imagelists are to be used in a listview.
Then I need to cut away the imagelists. Is there anyway I could apply the image to a listviewitem without the imagelist?
|
|
|
|
|
Never mind. I solved it. It had nothing to do with the imagelist.
|
|
|
|
|
Hi there,
I have an if statement where i would like to link a serail code e.g b3c to a text documenbt e.g serial.text
i have already tried everything but don't seem to be able to link the document with the if statment. I have looked all over google and i really do nned some help.
my if statement is currently
if txtserial.text = ......... then
my.forms.form2.show
please help me
Dan
|
|
|
|
|
what txtserial supposed to be? Is user supposed to enter some serial number?
And I see you are trying to compare that value and opening the Form2.
Now I really don't get this statement.
offroaderdan wrote: I have an if statement where i would like to link a serail code e.g b3c to a text documenbt e.g serial.text
If you fail to plan, you plan to fail!
Books are as useful to a stupid person as a mirror is useful to a blind person. - Chanakya
|
|
|
|
|
yeh the user enters a a serial number in txtserial and if this is correct then form 2 is shown.
serial.text checks the textserial to see if the number on the text box matches what is in the text document.
Hopefully that explains it a bit better.
|
|
|
|
|
Well, how is it not working? Does it just never show form 2? If that is the case then the serial is never matching the value from the file. Are you sure you are grabbing the value from the file properly? If so, perhaps it's a situation like having an extra space at the end, or the user typing in lower case instead of upper case. Perhaps you need something like this:
txtserial.Text.Trim.ToUpper = strValueFromFile.Trim.ToUpper
|
|
|
|
|
ummmm its just not finding the value from the file.
i could do a simple if statement that would display form2.
if statement =
if txtserial.text = "hi" then
my.forms.form2.text
i really don't know how to check a txt file
All i need is a simple piece of code that consists of checking a text box aggainst a txt file.
txtserial.Text.Trim.ToUpper = strValueFromFile.Trim.ToUpper 'how woulds i use this to link for example a text file for example serail.txt
thanks
|
|
|
|
|
How about something like this:
Dim strFilePath As String = "C:\Serial.txt"
Dim strSerial As String = String.Empty
If System.IO.File.Exists(strFilePath) Then
strSerial = System.IO.File.ReadAllText(strFilePath)
End If
If strSerial <> String.Empty AndAlso txtSerial.Text.Trim.ToUpper = strSerial.Trim.ToUpper Then
My.Forms.Form2.Show()
End If
|
|
|
|
|
do i put this code under a button?? Is this the only code i need?? Will this code read and find a code e.g DC3 if i have 250+ differnet codes
|
|
|
|
|
You can put this code in a button click event, if that is how you want your program to work. It's up to you. This code will read all of the text in a file and compare it to what the user typed into the textbox. I was operating under the assumption that the textfile would only have one serial in it. If you have serveral serials in the text file you'll have to separate the serials and compare each one in the file, searching for a match. And how to do that will depend upon how your text document is setup. I suggest you do some more research on the subject. You could start with some of these[^] articles.
|
|
|
|
|
thankyou Kschuler i am halfway there to getting my program working. It only took my 6 hours of hard work for a few lines of code, and probably another 6 to get the other halof of the program working buthey i learnt alot, so cheers 
|
|
|
|
|
I have tried each and evrything but i can't under stand how to get the selected rectangle outside the text searched with the OCR.
If some one can help me....
Sanjeev Jha
|
|
|
|
|
Do what?
Unless you can find a way to phrase your question so that people can understand what the hell you are talking about no one can help you!
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
I know what MODI is and how it works, but you're question doesn't make any sense what-so-ever.
|
|
|
|
|
Try and explain the question again, but this time without using any technology-related words. Specify what it is that you try to achieve, what you're observing, and what the behaviour is that you're after.
I are Troll
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
