Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim FileLibrary As String = "" Dim DossierApp As String = Application.StartupPath If Microsoft.VisualBasic.Right(DossierApp, 1) <> "" Then DossierApp = DossierApp & "" Dim architecture As Integer = Runtime.InteropServices.Marshal.SizeOf(GetType(IntPtr)) * 8 Select architecture Case 32 'x86 FileLibrary = DossierApp & "x32System.Data.SQLite.dll.ok" Case 64 'x64 FileLibrary = DossierApp & "x64System.Data.SQLite.DLL.ok" End Select Me.ToolStripStatusLabel1.Text = architecture.ToString & " bit" ' si dossier bin exist If System.IO.File.Exists(FileLibrary) Then If System.IO.File.Exists(DossierApp & "System.Data.SQLite.DLL") Then System.IO.File.Delete(DossierApp & "System.Data.SQLite.DLL") System.IO.File.Copy(FileLibrary, DossierApp & "System.Data.SQLite.DLL") End If