Nowhere in your code is there any provisions for handling the inevitable "access denied" error. Your code probably bombed in the root of your C: drive on a folder called "System Volume Information". You have to put some of this code in Try/Catch blocks to handle this eventuallity and deal with it as you must.
i didn't see any output from your search, just calling di.listfiles(type) but not adding it to anywhere!
and you are searching only C drive, what if your computer have morethan one drive.
initialise your search like this
dim drv as driveinfo<br />
for each drv in my.computer.filesystem.drives()<br />
if drv.isready then<br />
end if<br />
and create a searchfiles method with path and filetype as parameters
private sub searchfiles(byval path as directoryinfo,byval filetype as string)<br />
'this will handle the error access denied<br />
'list files<br />
dim fi as fileinfo<br />
for each fi in di.getfiles(filetype)<br />
'do something with the file here<br />
'now go through the directories and get files from subdirectories<br />
dim sdi as directoryinfo<br />
for each sdi in di.getDirectories()<br />
next <br />
catch exception as ex<br />
end catch<br />
this will get you through all the directories in a computer.
hope this works for you
Iam doing an application, studio 2003, vb.net, and what i need is:
1: I want this application to start up when windows starts (turn on the pc).
2: When i hit the close button, (up right of the window), the application to be minimized at the taskbar, near the clock icon, like msn and yahoo messenger is.
for the moment i have a program that opens office documents in a webbrowser. It works fine with office 2000 and 2003, but not i have a problem.
When i want to open a file in the webbrowser, the office-applications opens instand of loading the file in the webbrowsers
I want to update my database with the names and contact info of the ppl by using the Whitepages.com site from the reverse numbers option. I m using httpWebrequest and httpWebresponse classes to work it out .. but i m unable to get the page with the desired data ( same as when a user types a number s and presses search button). I have used the POST method and appended the post data but the same default page is returned to me . can any body help me out ???
I dynamically create buttons on main_form, then in a module (functions) i try to access this controls by setting an focus to one of them.
when i try to access with "index = Frm_Main.CtrlFocus" it doesnt work becouse number of controls is zero since this frm_main is new instance i guess?!
Does anyone know how to fix this, and if there is a better way?
Public Class Frm_Main
Dim WithEvents BtnOperate As New OpenNETCF.Windows.Forms.Button2
Private Sub Frm_Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BtnOperate.Location = New System.Drawing.Point(20, 20)
Me.BtnOperate.Size = New System.Drawing.Size(150, 150)
Me.BtnOperate.TabIndex = 0
Me.BtnOperate.BackgroundImage = b
Me.BtnTest2.Location = New System.Drawing.Point(340, 20)
Me.BtnTest2.Size = New System.Drawing.Size(150, 150)
Me.BtnTest2.TabIndex = 2
Me.BtnTest2.BackgroundImage = b
Public Property CtrlFocus() As Integer
Dim i As Integer = Me.Controls.Count
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Focused Then
Set(ByVal value As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.TabIndex = value Then
Public Class Functions
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
BytesToRead = SP1.BytesToRead
Dim buffer(BytesToRead - 1) As Byte
SP1.Read(buffer, 0, BytesToRead)
If message.IndexOf(Chr(3)) > -1 Then
Dim STX As Integer = message.IndexOf(Chr(2))
If message(STX + 1) = "K" Then
Dim index As Integer
Select Case message(STX + 2)
index = Frm_Main.CtrlFocus
index = (index + 4) Mod 8
Frm_Main.CtrlFocus = index
Are you looking for a shortcut like from you own desktop or are you looking for how to create a shortcut to your application from within a distribution set? So as to automatically create a shortcut on a users PC desktop when installing your app.
Application path is the location where datastage client is installed in the local machine.
Other attributes like:
-lparam: Give the list of parameters for a particular job
-ljobs: List all the jobs in a particular project
-lprojects: List all the projects available in the server
-run: To run a job
-stop: To stop a job etc….
Now can anyone help me how to put these in VB.Net and how to fetch the results of these commands. Because based on the results of these commands I have to create dynamic text boxes.
It looks complicated, but can anyone who knows this help me out ?
Process.Start is basically shellexecute, you can pass your parameters through there.
Christian Graus - Microsoft MVP - C++ Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )