Visual Basic

Re: How can I iterate all of the directories in a specific drive?

20-Feb-09 10:41

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. Frown | :(

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.

vaghelabhavesh20-Feb-09 10:52

vaghelabhavesh

20-Feb-09 10:52

Here is one sample.
http://www.codeproject.com/KB/cs/recursionincsharp.aspx[^]

Re: How can I iterate all of the directories in a specific drive?

JUNEYT20-Feb-09 11:18

Re: How can I iterate all of the directories in a specific drive?

20-Feb-09 11:18

Thanks

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Gideon Engelberth20-Feb-09 10:53

Gideon Engelberth

20-Feb-09 10:53

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.

Re: How can I iterate all of the directories in a specific drive?

JUNEYT20-Feb-09 11:17

Re: How can I iterate all of the directories in a specific drive?

20-Feb-09 11:17

Thanks.

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Samir Ibrahim21-Feb-09 0:19

Samir Ibrahim

21-Feb-09 0:19

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

Re: How can I iterate all of the directories in a specific drive?

Alan N21-Feb-09 1:43

Alan N

21-Feb-09 1:43

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.

Re: How can I iterate all of the directories in a specific drive?

Samir Ibrahim21-Feb-09 2:12

Samir Ibrahim

21-Feb-09 2:12

Hi Alan

Alan N wrote:
and think what the parameter should be for that call.

subDir

I know that, but I was testing you. Laugh | :laugh:

Thanks for pointing to it Smile | :)

Samir R. Ibrahim

How to play a muli-track avi file

Franchuu20-Feb-09 8:27

Franchuu

20-Feb-09 8:27

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.

Re: How to play a muli-track avi file

Dave Kreskowiak21-Feb-09 7:39

Re: How to play a muli-track avi file

21-Feb-09 7:39

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Franchuu21-Feb-09 21:59

Franchuu

21-Feb-09 21:59

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)

Re: How to play a muli-track avi file

Franchuu22-Feb-09 0:55

Franchuu

22-Feb-09 0:55

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.

Creating an Excel Workbook in VB.NET 2008

Like2Byte20-Feb-09 6:39

Like2Byte

20-Feb-09 6:39

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. Smile | :)

Re: Creating an Excel Workbook in VB.NET 2008

DaveAuld20-Feb-09 7:09

DaveAuld

20-Feb-09 7:09

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?

Dave
Who am I?: http://www.bebo.com/daveauld/

Re: Creating an Excel Workbook in VB.NET 2008

Like2Byte20-Feb-09 7:21

Like2Byte

20-Feb-09 7:21

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!!

Display Data In Datagrid - Error

Member 367504720-Feb-09 1:45

Member 3675047

20-Feb-09 1:45

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.

Dave Kreskowiak20-Feb-09 2:05

20-Feb-09 2:05

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Member 367504720-Feb-09 2:32

Member 3675047

20-Feb-09 2:32

Below is the query

SELECT AccountNum, LastName, FirstName, PolicyNumber, Premium
FROM INSURE_TABLE

This is query in the Data Adapter Configuration Wizard.

Dave Kreskowiak20-Feb-09 3:31

20-Feb-09 3:31

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

How can I solve "Cross-thread operation not valid" error?

Member 367504720-Feb-09 3:58

Member 3675047

20-Feb-09 3:58

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.

JUNEYT20-Feb-09 1:22

Re: How can I solve "Cross-thread operation not valid" error?

20-Feb-09 1:22

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

        '// System.Windows.Forms.Application.Run(Loadarchive) another way to call the class.

        ListView1 = myApp.NewListview
        ToolStripStatusLabel1.Text = myApp.StatusMessage

    End Sub

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Dave Kreskowiak20-Feb-09 2:04