Boa noite!!
Tenho um pasta com o seguinte nome
C:\Glass Solution Plus\Temp
Quanto executo o código abaixo não consigo executar MSPAINT, mas quando renomeio a pasta para
C:\GlassSolutionPlus\Temp da certo.
Infelizmente não posso mais tirar o espaço no nome da pasta
Abaixo segue codigo
''' <summary>
''' EDITAR IMAGEM
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub CmdSlvImg_Click(sender As Object, e As EventArgs) Handles CmdSlvImg.Click
Try
'EDITA IMAGEM
If FrmMenu.DgvAcesso.Item("NmGruUsr", 0).Value = "ADMINISTRADORES" Or FrmMenu.DgvAcesso.Item("FlTbPrj_I", 0).Value = True Then
Dim Path As String = "C:\Glass Solution Plus\Temp"
'VERIFICA SE PASTA EXISTE, CASO NAO EXISTA O MESMO E CRIADO
If Not IO.Directory.Exists(Path) Then
IO.Directory.CreateDirectory(Path)
End If
ImgPrjMiniPictureBox.Image.Save(Path & "\" & NrPrjCaoTextBox.Text & ".JPG")
Process.Start("mspaint", Path & "\" & NrPrjCaoTextBox.Text & ".JPG")
'Process.Start("Explorer", Path & "\" & NrPrjCaoTextBox.Text & ".JPG")
'GRAVA EDIÇÃO DA IMAGEM
If MsgBox("Deseja atualizar imagem com alterações feitas", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Glass Solution Plus") = vbYes Then
'ModRcdImg_Grava_DocVendaImagem(intModo)
Call ModPrj_ImagemProjeto(Path & "\" & NrPrjCaoTextBox.Text & ".JPG", CdPrjTextBox.Text)
CmdRec_ButtonClick(sender, e)
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Quando abro no EXPLORER vai de boa
