Visual Basic

mshome77 wrote:

I am beginner in programming Visual Basic and i use the visual studio 2010 ultimate.

mshome77 wrote:

How to make a button that will copy two files

Tom Deketelaere wrote:

First of all under vista / windows 7 the c:\windows\system32 map is protected and your program shouldn't be trying to copy anything in there (least of all a dll and a exe)

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Dir("C:\WINDOWS\system32\ps3sixaxis_en.exe") <> "" Then
            MsgBox("installed successfully")
        Else
            MsgBox("File was not copied")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.Diagnostics.Process.Start("C:\Program Files\Iplay\xpadder.exe")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Process1_Exited(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("C:\Program Files\Iplay\libusb-Win32 Setup.exe")
    End Sub

End Class
_________________________________________

Imports System
Imports System.IO

Public Class Test
    Public Shared Sub Main()
        ' Specify the directories you want to manipulate.
        Dim path As String = "c:\temp\MyTest.txt"
        Dim path2 As String = path + "temp"

        Try
            Dim fs As FileStream = File.Create(path)
            fs.Close()
            ' Ensure that the target does not exist.
            File.Delete(path2)

            ' Copy the file.
            File.Copy(path, path2)
            Console.WriteLine("{0} copied to {1}", path, path2)

            ' Try to copy the same file again, which should fail.
            File.Copy(path, path2)
            Console.WriteLine("The second Copy operation succeeded, which was not expected.")

        Catch e As Exception
            Console.WriteLine("The second Copy operation failed, as expected.")
        End Try
    End Sub
End Class

Private Function FindFile(ByVal fileName As String, ByVal searchDirectory As String) As String
    Dim fullPath As String = ""

    If Not IO.Directory.Exists(searchDirectory) Then Throw New IO.DirectoryNotFoundException

    fullPath = IO.Path.Combine(searchDirectory, fileName)
    If Not IO.File.Exists(fullPath) Then
        fullPath = ""
        Try
            For Each subDirectory As String In IO.Directory.GetDirectories(searchDirectory)
                fullPath = FindFile(fileName, subDirectory)
                If fullPath <> "" Then Exit For
            Next
        Catch uaException As UnauthorizedAccessException
            fullPath = ""
        End Try
    End If

    Return fullPath
End Function

myFile = FindFile("392.exe", "C:\")
If IO.File.Exists(myFile) Then Process.Start(myFile)

myFile = FindFile("392.exe", Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles))

kokilag wrote:

Where exactly I should give Servername\\sharename and how

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\abc.mdb") & ";Jet OLEDB:Database Password=efg;"

kereljansen wrote:

The problem is the comma in the " 's Heerenberg"