Visual Basic

A_Yakout31-May-04 22:41

A_Yakout

31-May-04 22:41

if you use visual basic or visual c++ you can use api to copy or delete or move file in same pc or to another pc
and to use it by vb use this

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
and in vc++ just call the fucnction

Dave Kreskowiak1-Jun-04 0:40

1-Jun-04 0:40

If the file is locked by an application as ShareDenyRead or ShareDenyAll, then your screwed and have to wait for the application to release it's locks or, preferrably, closes the file.

If your going to copy this file to multiple locations simultaneously, you can do it by either P/Invoking the CopyFileA function for each destination computer, letting the O/S copy the file. Or you can create your own copy file class and launch a copy on a thread for each destination.

In either case you'll have to watch how many of these you launch at one time. If you try an launch this for, say, 25 machines at one, you'll bring your system to a halt waiting for these things to copy out. Whatever network connection you use will quicky become saturated with your copy traffic and you, most likely, won't be able to do much of anything else until the copy process is completed.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

beowulfagate1-Jun-04 1:59

beowulfagate

1-Jun-04 1:59

I am using a max 10 threads to copy this file to other pcs and the only application using this file is my application. I've tried using the API but it still won't work. I am looking for a way to copy this file similar to the way the Backup applications doing it. Any suggestions?

Thanks again.

Dave Kreskowiak1-Jun-04 2:27

1-Jun-04 2:27

OK. You seem to believe that Backup programs can backup any file they want, regardless of its locked state. This is simply not true. If an application has a file locked for exclusive read and/or write, the backup application will normall skip the file. There are occasions where a locked file CAN be backed up, but these include files where there are record locks, not entire file locks, and file that are locked for write, but shared read. Some backup apps also install extensions to the file system to partially get around these limitations, but the techniques involved require low level disk access and assembling the file from the disk sectors into another file.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Array of a class in VB.NET doesn't work

beowulfagate1-Jun-04 13:54

beowulfagate

1-Jun-04 13:54

Another Question: How do use the shadow copy service in Windows 2003 from a VB.NET application? Just curious.

Thanks to all!!!

VB.NET DataGrid

Arjun G31-May-04 13:38

Arjun G

31-May-04 13:38

Is there an event (or related event) triggered when you edit the contents of a cell in a bound datagrid (VB.NET). I am trying to update the total value of the columns in the last column...

arian_ashie31-May-04 12:57

arian_ashie

31-May-04 12:57

Dim objP(255) As Login 'Login is a class

'Here I want to use the class sub "SetValues"
objP(1).SetValues("Bla1", "Bla2")

'Here i want to show the class member "User"
MsgBox(objP(1).User)

But this results in this error message:
---
An unhandled exception of type 'System.NullReferenceException'
occurred in ClassApp.exe
Additional information: Object reference not set to an instance
of an object.---
I wonder if I should use something like this to make it work?
Dim objP(255) New As Login -But this doesn't work!

Thanks for help!
//Ari Confused | :confused:

Re: Array of a class in VB.NET doesn't work

Serge Lobko-Lobanovsky31-May-04 22:40

Serge Lobko-Lobanovsky

31-May-04 22:40

You need to instantiate every member of the array, like this

Dim i as Integer<br />
<br />
for i=lbound(objP) to ubound(objP)<br />
  objP(i) = new Login<br />
next

Do you always need all the 255 Logins ? If not, I'd prefer using an ArrayList or a Collection.

dim logins as New ArrayList()<br />
<br />
' every time I need to keep track of a new login<br />
logins.Add(new Login("Bla1", "Bla2"))

Regards,
Serge (Logic Software, Easy Projects .NET site)

Windows 2000 Problems

nvmoss31-May-04 4:21

nvmoss

31-May-04 4:21

I have an application that I debugged initially in Windows XP, and I am now testing it on Windows 2000 Professional. There are two things that don't work correctly in Windows 2000:

1) The first time the app is opened, the splash screen doesn't close on the timer_tick event. If I close the app and re-open it, it works fine.

2)The cursor doesn't change using the syntax (from an MDI child form)

Me.Parent.Cursor = Cursors.WaitCursor

WHat do I need to do to make these features work properly in Windows 2000?

Thanks!

Re: Windows 2000 Problems

Dave Kreskowiak31-May-04 6:50

Re: Windows 2000 Problems

31-May-04 6:50

Is the 2000 box runnig with the lastest Service Pack?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

nvmoss31-May-04 10:10

nvmoss

31-May-04 10:10

I believe it is. It has Service Pack 4 installed.

Re: Windows 2000 Problems

Dave Kreskowiak31-May-04 11:32

31-May-04 11:32

In that case, I hove no idea. You shouldn't have to make any code changes to get the same functionality. I only mentioned the Service Pack because there was a problem with some timers under Windows 2000 that was fixed with Service Pack 2.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Need your help

ymohd_22231-May-04 3:14

ymohd_222

31-May-04 3:14

Where can i find good sites to learn vb.net step by step. And where can i find examples on vb.net with pictures.
Thanks.

Go forward and never Stop....

Re: Need your help

Dave Kreskowiak31-May-04 6:49

31-May-04 6:49

http://www.amazon.com[^]
How good the site, or other resource, is depends entirely on your skill set and how you learn.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Network

jithen_dt31-May-04 2:10

jithen_dt

31-May-04 2:10

How do I find the list of computers in my network. Using VB 6.0
Confused | :confused:

Every is Illusion

Re: Network

Dave Kreskowiak31-May-04 6:48

Re: Working Days in a Year

31-May-04 6:48

You'll have to call the Win32 API functions WNetOpenEnum, WNetEnumResources, WNetCloseEnum, along with a few others and a couple helper functions. There is an example of this in the Microsoft Knowledgebase here[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Working Days in a Year

alhadav31-May-04 0:30

alhadav

31-May-04 0:30

Hi,
Is there Microsoft provided funtion which will give me woking days in a year. e.g. With 5 days working week, how many daysare there in year

~@lh

Colin Angus Mackay31-May-04 1:18

Colin Angus Mackay

31-May-04 1:18

Not that I know of, but it is not difficult to work out:

52 weeks * 5 days
+ 1 day if 31st Dec is a working day
+ 1 day if 30th Dec is a working day AND it is a leap year.

From there you can subtract local holidays if necessary.

Does this help?

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

lpCurrentDirectory

soul.ripper30-May-04 16:12

30-May-04 16:12

I can't get lpCurrentDirectory to work correct
why ?

This option is provided primarily for shells that need
to start an application and specify its initial drive and
working directory.

<br />
'Declare CreateProcess<br />
Type STARTUPINFO<br />
    cb As Long<br />
    lpReserved As String<br />
    lpDesktop As String<br />
    lpTitle As String<br />
    dwX As Long<br />
    dwY As Long<br />
    dwXSize As Long<br />
    dwYSize As Long<br />
    dwXCountChars As Long<br />
    dwYCountChars As Long<br />
    dwFillAttribute As Long<br />
    dwFlags As Long<br />
    wShowWindow As Integer<br />
    cbReserved2 As Integer<br />
    lpReserved2 As Long<br />
    hStdInput As Long<br />
    hStdOutput As Long<br />
    hStdError As Long<br />
    lpCurrentDirectory As Long<br />
End Type<br />
Type PROCESS_INFORMATION<br />
    hProcess As Long<br />
    hThread As Long<br />
    dwProcessID As Long<br />
    dwThreadID As Long<br />
End Type<br />
<br />
Global Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&<br />
Global Const HIGH_PRIORITY_CLASS = &H80&<br />
Global Const IDLE_PRIORITY_CLASS = &H40&<br />
Global Const NORMAL_PRIORITY_CLASS = &H20&<br />
Global Const REALTIME_PRIORITY_CLASS = &H100&<br />
Global Const INFINITE = -1&<br />
Declare Function CloseHandle Lib "kernel32" (hObject As Long) As Boolean<br />
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long<br />
Declare Function CreateProcessA Lib "kernel32" _<br />
(ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long<br />

<br />
Public Function ExecuteAndWait(cmdline$)<br />
On Error GoTo Error<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    NameStart.cb = Len(NameStart)<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, HIGH_PRIORITY_CLASS, 0&, 0&, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
Exit Function<br />
Error:     ' Error handling<br />
MsgBox "Run-Time Error number " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbCritical, "CreateProcess<br />
"<br />
End Function<br />

Thanks for any help

Greets jeroen Big Grin | :-D

Dave Kreskowiak31-May-04 1:10

31-May-04 1:10

You never said what you expect the current WorkingDirectory to be or what the problem is with it. Besides, your code isn't even using it in the CreateProcessA call. Your passing 0 in as the pointer to the lpCurrentDirectory parameter.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

soul.ripper31-May-04 2:27

31-May-04 2:27

Oke lets passing another parameter

<br />
Public Function ExecuteAndWait(cmdline$)<br />
<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    Dim A<br />
    Dim WorkingDirectory As String<br />
    <br />
    WorkingDirectory = cmdline$<br />
    'MsgBox WorkingDirectory<br />
    <br />
    <br />
    NameStart.cb = Len(NameStart)<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, HIGH_PRIORITY_CLASS, 0&, WorkingDirectory, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
End Function<br />

it gives this error code:

run-time error 13
Type mismatch

Why ? im missing somthing ?

Thanks for your time

Greets jeroen

Dave Kreskowiak31-May-04 6:39

31-May-04 6:39

This is the Declare you used for CreateProcess:

Declare Function CreateProcessA Lib "kernel32" _
        (ByVal lpApplicationName As Long, _
        ByVal lpCommandLine As String, _
        ByVal lpProcessAttributes As Long, _
        ByVal lpThreadAttributes As Long, _
        ByVal bInheritHandles As Long, _
        ByVal dwCreationFlags As Long, _
        ByVal lpEnvironment As Long, _
        ByVal lpCurrentDirectory As Long, _
        ByRef lpStartupInfo As STARTUPINFO, _
        ByRef lpProcessInformation As PROCESS_INFORMATION) _
    As Long

Now your trying to pass a String where your Declare said your going to pass a ByVal Long. Change it so that it reads:

ByVal lpCurrentDriectory As String

BTW, the correct Declare out of the VS6 APIViewer is this one: Your version will work so long as you pass the parameters the function expects in the format that it expects.

Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" _
        (ByVal lpApplicationName As String, _
        ByVal lpCommandLine As String, _
        ByRef lpProcessAttributes As SECURITY_ATTRIBUTES, _
        ByRef lpThreadAttributes As SECURITY_ATTRIBUTES, _
        ByVal bInheritHandles As Long, _
        ByVal dwCreationFlags As Long, _
        ByRef lpEnvironment As Any, _
        ByVal lpCurrentDriectory As String, _
        ByRef lpStartupInfo As STARTUPINFO, _
        ByRef lpProcessInformation As PROCESS_INFORMATION) _
    As Long

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

soul.ripper31-May-04 9:45

31-May-04 9:45

Thanks its working better now,

Its not opening the working Directory
It’s using the executing directory as working directory

<br />
Public Function ExecuteAndWait(cmdline$)<br />
<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    Dim WorkingDirectory As String<br />
    WorkingDirectory = "c:\"<br />
'MsgBox WorkingDirectory<br />
    NameStart.cb = Len(NameStart)<br />
<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, HIGH_PRIORITY_CLASS, 0&, WorkingDirectory, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
<br />
End Function<br />

thats strange, any idee ?

thanks for your time

Greets jeroen

Dave Kreskowiak31-May-04 11:11

31-May-04 11:11

The open dialog is using the executing directory, not the directory from which the application was "launched", which would be the "working directory". This app is apparantly setting this internally. If that's the case, your not going to be able to change that.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

soul.ripper31-May-04 11:43