|
Hi,
How can I iterate all of the directories in a specific drive? My patience is exhausted and my hair is all over the table.  My aim is to get in and get out evey directory in selected drive. If the directory has some files with the extension of (txt) I should put their name into listview.
Currently I can read all 1st child directories under the specific drive. But we don't know how many child directories has the targeted one. Therefore we should be able to skip from one to another one. When there is no directory and no file we should go back to their parent and continue to process until the last child directory gets done.
I am seeking a sample with use of directoryinfo. I didn't want to put my code here because it is quite long.
I would really appreciate it if you know the method or having the code.
Thanks.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
|
Thanks 
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
If you want every directory on the drive, you will need to use recursion. Recursion basically looks something like this:
Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
For Each file In root.GetFiles("*.txt")
'process the file
Next
For Each subDir In root.GetDirectories()
CheckDirectories(root)
Next
End Sub
which you then call with the DirectoryInfo for the selected drive to start the whole thing.
|
|
|
|
|
Thanks.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Hi Gideon
I am interested with your approach, I know what do you mean by "something like this", it needs a little fine tuning.
I had this code which is stayed in forever loop and I could not tell why?
' Command Click
Dim RootDir As New IO.DirectoryInfo("C:\MyFolder")
Call Module1.CheckDirectories(RootDir)
' Module1.CheckDirectories
Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
For Each file In root.GetFiles("*.txt")
Debug.Print(file.Name) 'process the file
Next
For Each subDir In root.GetDirectories()
CheckDirectories(root)
Next
End Sub
TIA
Samir R. Ibrahim
|
|
|
|
|
Hi Samir,
I assume you are seeing the names of the files within c:\MyFolder displayed ad infinitum. Take a good look at the actual recursive call within the method, i.e. the point where CheckDirectories calls itself, and think what the parameter should be for that call.
Step through it with the debugger if you still can't see what's wrong.
Alan.
|
|
|
|
|
Hi Alan
Alan N wrote: and think what the parameter should be for that call.
subDir
I know that, but I was testing you. 
Thanks for pointing to it
Samir R. Ibrahim
|
|
|
|
|
Well that's the question. I try to play an avi file with more than 1 audio track and always hear all the tracks simultaneously.
I wanna choose and hear only one of the audio tracks, but I don't really know how to do it.
Thank you in advance.
- I've seen some similar examples here, but I didn't find anything for VB .NET 2005
If there is already a thread about this subject I'm really sorry, didnt find it.
|
|
|
|
|
I didn't know there was such a thing. If you can play any track how you want in Windows Media Player, you can then use it's control to do it inside your app.
|
|
|
|
|
I've tried Windows Media Player and DirectX.AudioVideoPlayback, both played the video fine, but also played all the audio tracks at the same time.
You can't choose one sigle audio track in a multi-track avi file with WMP (Not even with WMP 11)
|
|
|
|
|
Ok, I've found a way to do it.
First of all you have to install a DirectShow filter to 'separate the audio tracks'
I've used Morgan Stream Switcher filter (freeware)
And then:
Dim iControl As WMPLib.IWMPControls3 = WMP.Ctlcontrols 'WMP.Controls if you didn't embeded the object
icontrol.currentAudioLanguageIndex = track 'Where track is the audio track index.
And thats all.
|
|
|
|
|
Hi, I'm helping a colleague of mine.
We're trying to create an Excel workbook so he can do some calculations. However, we can't get the excel object to instantiate. We've added the reference via 'Project->Add Reference->Microsoft Excel 11.0 Object Library->OK.
On our form, we've added the following but can not get the object to instantiate.
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Dim excelapp As New Microsoft.Office.Interop.Excel.Application
Dim excelwb As Microsoft.Office.Interop.Excel.Workbook
End Class
The Dim calls seem to take ok as no squiggly lines appear on those two lines.
Attempting to reference excelapp or excelwb only results in squiggly lines under their names and no properties will appear in the drop down - that is, there is no dropdown as it doesn't recognize the two variables.
How can we instantiate the excel object so we can use the methods on it?
Thanks in advance. 
|
|
|
|
|
I tried the following;
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Dim excel As New Microsoft.Office.Interop.Excel.Application
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
excel.Visible = True
End Sub
End Class
And excel application opens fine and becomes visible when Form1 loads.
If you put excel.visible in your form load event as a test does that work?
|
|
|
|
|
Ah, I see what we did. We were trying to invoke methods on the vars without being inside a form-method.
(I'm not a VB.NET developer. Can you tell!?) :P
Thank you very much for your help!!
|
|
|
|
|
I am using MS SQL as my database.
To display my data in a datagrid i used the SqlDataAdapter, SqlConnection and its DataSet to connect to my database.
When i preview my data through the SqlDataAdapter its just fine.
But this will not work for the datagrid.
I used
jesSqlDataAdapter.Fill(jesDataSet1)
or
jesSqlDataAdapter.Fill(jesDataSet1, "Table_Name")
in the form/datagrid load sub.
However i get an error:
An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
Additional information:System error.
Please help.
|
|
|
|
|
From the very limited information you provided, it looks like the SQL query you tried to run isn't valid, or how you setup the query to execute isn't correct.
|
|
|
|
|
Below is the query
SELECT AccountNum, LastName, FirstName, PolicyNumber, Premium
FROM INSURE_TABLE
This is query in the Data Adapter Configuration Wizard.
|
|
|
|
|
OK. That leaves the code you have to setup and execute the query. Something isn't right, either from how you setup the connection, like connection string and SqlConnection objects, down to setting up the SqlDataAdapter. Without seeing that code, there isn't much we can tell you.
|
|
|
|
|
Which other code are you requesting?
The only code i have is the one in the Form_Load with reads:
jesSqlDataAdapter.Fill(jesDataSet1)
or
jesSqlDataAdapter.Fill(jesDataSet1, "Table_Name")
I used the data wizards to configure the dataadapter and dataset.
I chose the Microsoft OLE DB Provider for SQL Server at the Data Link Properties.
|
|
|
|
|
Hi,
Thanks to Dave Kreskowiak who guided me to use Backgroundworker. It is a fantastic feauture. However I have experienced a difficulty to run the class what handles the background processing via backgroundworker control. I have received the following error message. If you know the solution, I would like to know also.
Thanks.
Cross-thread operation not valid: Control 'Archive' accessed from a thread other than the thread it was created on.
The scenerio is a simple task as described here: I created a class. The class inherits from a form and produces a listview and then assigns it to a property variable. There is two progress bar which are used to show the progress while reading the records. This class is called by the application inside a sub procedure. The main form is calling the class.
'APPLICATION FORM1
<STAThread()> _
Public Sub LoadArchiveFiles()
Dim myApp As New Loadarchive
myApp.FileName = ArchiveDirectory
'
ListView1 = myApp.NewListview
ToolStripStatusLabel1.Text = myApp.StatusMessage
End Sub
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
OK. The problem I wanted to avoid, you stumbled into. You cannot touch a UI control from a thread other than the one that created the control. So, that means you can't directly interact with the ToolStripStatusLabel from the code that is running in the BackgroundWorker.
I can't tell you how to do it right now, because I'm short on time, but if you do the research yourself, you're Googling for "VB.NET Delegate Invoke Thread".
|
|
|
|
|
Hi All,
How can i develop Barcode True Type Font.Please give me some idea about it.
Thanks
Best Regard
Anubhava Dimri
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
You could just download one from here[^]
Simon
|
|
|
|
|
And this has what to do with VB.NET??
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
