1

我在win 7和xp中运行我的项目,但是有一条错误消息,在这个项目中我使用shell32.shell复制和提取自动exe文件,shell32.shell在windows 7和xp中不起作用吗?如果可以,请建议sheell32.shell可以运行

Dim sc As New Shell32.Shell()
Dim pathExeOnServer As String = "\\server\UpdateProgram\"

Try
                If (Not System.IO.Directory.Exists(Path.Combine(Application.StartupPath() & "\RS_Application"))) Then
                    Directory.CreateDirectory(Path.Combine(Application.StartupPath() & "\RS_Application"))
                Else
                    'DO NOTHING
                End If

                Me.Cursor = Cursors.WaitCursor
                File.Copy(Path.Combine(pathExeOnServer, fileName & ".zip"), Path.Combine(Application.StartupPath() & "\RS_Application", fileName & ".zip"), True)
                System.IO.File.Delete(Application.StartupPath() & "\RS_Application\" & fileName & ".exe")
                Dim output As Shell32.Folder = sc.NameSpace(Application.StartupPath() & "\RS_Application")
                Dim input As Shell32.Folder = sc.NameSpace(Application.StartupPath() & "\RS_Application\" & fileName & ".zip")
                output.CopyHere(input.Items, 4)
                Me.Cursor = Cursors.Arrow
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
            End Try

错误信息

4

0 回答 0