1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
Public Sub cherche_dossier(ByRef BubbleEvent As Boolean)
Try
ShowFolderBrowserThread = New Threading.Thread(AddressOf FolderBrowser)
If ShowFolderBrowserThread.ThreadState = ThreadState.Unstarted Then
ShowFolderBrowserThread.SetApartmentState(ApartmentState.STA)
ShowFolderBrowserThread.Start()
ElseIf ShowFolderBrowserThread.ThreadState = ThreadState.Stopped Then
ShowFolderBrowserThread.Start()
ShowFolderBrowserThread.Join()
End If
Catch ex As Exception
Appli.MessageBox("cherche_dossier" & ex.Message)
End Try
End Sub
Public Sub FolderBrowser()
Dim Dlg As New FolderBrowserDialog
Dim MyProcs() As System.Diagnostics.Process
Try
MyProcs = Process.GetProcessesByName(MonAppli)
If MyProcs.Length = 1 Then
For i As Integer = 0 To MyProcs.Length - 1
'// WindowWraper concepts are used to access open dialogue box of windows
Dim MyWindow As New WindowWrapper(MyProcs(i).MainWindowHandle)
Dlg.Description = "Selectionner un dossier"
Dlg.RootFolder = Environment.CurrentDirectory
If Dlg.ShowDialog(MyWindow) = DialogResult.OK Then
Edch.Value = Dlg.SelectedPath
RepPath = Dlg.SelectedPath
Else
System.Windows.Forms.Application.ExitThread()
End If
Next
End If
Catch ex As Exception
Appli.MessageBox("Repertbrowser" & ex.Message)
End Try
End Sub |
