和

 公共子ShowFolderBrowser（）

         作为新FileIOPermission（PermissionState.None）昏暗
         f.AllLocalFiles = FileIOPermissionAccess.AllAccess
         Dim MyProcs（）作为System.Diagnostics.Process
         BankFileName =""
         将OpenFile设为新的OpenFileDialog

         尝试
             OpenFile.Multiselect =假
             OpenFile.Filter =" | *。*"
             昏暗filterindex为整数= 0
             尝试
                 filterindex = 0
             异常捕获
             结束尝试

             OpenFile.FilterIndex =过滤索引

             OpenFile.RestoreDirectory = True
             MyProcs = Process.GetProcessesByName（" SAP业务一"）

             如果MyProcs.Length = 1，则
                 对于i作为整数= 0到MyProcs.Length-1

                     将MyWindow设为新的WindowWrapper（MyProcs（i）.MainWindowHandle）
                     暗淡为DialogResult = OpenFile.ShowDialog（MyWindow）

                     如果ret = DialogResult.OK然后
                         昏暗的FileName作为字符串= OpenFile.FileName
                         OpenFile.Dispose（）
                     其他
                         System.Windows.Forms.Application.ExitThread（）
                     万一
                 下一个
             万一
         异常捕获
             m_SBO_Application.StatusBar.SetText（例如消息）
             BankFileName =""
         最后
             OpenFile.Dispose（）
         结束尝试

     结束子
 

Janos Nagy，我明白了。 非常感谢。

嗨，

如果您搜索论坛，您将看到很多openfiledialog解决方案。 这是一个示例，但在 VB.NET 中，

调用findfile获取文件名

 公共类WindowWrapper

         实现System.Windows.Forms.IWin32Window
         私人_hwnd作为IntPtr

         Public Sub New（ByVal句柄为IntPtr）
             _hwnd =句柄
         结束子

         System.IntPtr实现的公共只读属性Handle（）
 System.Windows.Forms.IWin32Window.Handle
             得到
                 返回_hwnd
             结束获取
         最终财产

     末级

 

 公共函数FindFile（）作为字符串

         Dim ShowFolderBrowserThread作为Threading.Thread
         尝试
             ShowFolderBrowserThread =新线程.Thread（AddressOf ShowFolderBrowser）
             如果ShowFolderBrowserThread.ThreadState = System.Threading.ThreadState.Unstarted然后
                 ShowFolderBrowserThread.SetApartmentState（System.Threading.ApartmentState.STA）
                 ShowFolderBrowserThread.Start（）
             ElseIf ShowFolderBrowserThread.ThreadState = System.Threading.ThreadState.Stopped然后
                 ShowFolderBrowserThread.Start（）
                 ShowFolderBrowserThread.Join（）

             万一
             而ShowFolderBrowserThread.ThreadState = Threading.ThreadState.Running
                 Application.DoEvents（）
             结束时间
             如果BankFileName <>""然后
                 返回BankFileName
             万一
         异常捕获
             m_SBO_Application.MessageBox（" FileFile"＆ex.Message）
         结束尝试

         返回""

     结束功能

 

在下一个回复中继续。.

此致

J。

编辑：Janos Nagy于2009年6月16日下午6:18

嗯，我似乎对某件事有误。 在Windows Server 2003上运行的版本是SAP2007。如果我使用SAP 2005，则该附加组件可在Windows Server 2003上运行，但在使用SAP 2007时，该外接程序无法运行。还有其他人看到吗？

编辑：Costas Ioannou于2009年6月22日上午11:25

尝试一下，

 System.Windows.Forms.Formform = newSystem.Windows.Forms.Form（）;
 form.TopMost = true;
 OpenFileDialog objOpenFileDialog = new OpenFileDialog（）;
 objOpenFileDialog.InitialDirectory = System.Windows.Forms.Application.StartupPath +" \";
 objOpenFileDialog.Filter =" Excel文件（* .xls）| * .xls";
 if（objOpenFileDialog.ShowDialog（form）！= DialogResult.Cancel）
 {
 字符串ExcelFilePath = objOpenFileDialog.FileName;
 .....
 }