主题：截图到某个路径文件夹

老师，能帮忙看看这个吗？就是截图到产档_产品文件的列，然后用现在的时间作为贴图的命名，然后再可以把这个截图图片的命名在复制到 产品_产品图片列吗？ 感谢 感谢 

Dim proc As new Process

谢谢 老师  能我们看看这个是那里的错呀

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    Dim f As String = forms("窗口6").Controls("ComboBox1") & "\" & format(Date.Now, "yyyyMMddHHmmss") & " .jpg"
    ClipBoard.GetImage.save(f)
    forms("窗口6").Controls("ComboBox3") = f
    msgbox("已经保存到路径")
End If

老师，这个是哪里错误了呀 感谢感谢 

.NET Framework 版本：2.0.50727.9043

GDI+ 中发生一般性错误。

e.Form.Controls("ComboBox1").Text = ProjectPath.Chars(0) & ":\回款\收付凭证\" & e.Form.Controls("ComboBox2").Text

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    Dim f As String = forms("窗口6").Controls("ComboBox1") .text & "\" & format(Date.Now, "yyyyMMddHHmmss") & " .jpg"
    ClipBoard.GetImage.save(f)
    forms("窗口6").Controls("ComboBox3").text  = f
    msgbox("已经保存到路径")
End If

谢谢老师，这个路径是不存在的，是这样的，老师，

谢谢老师，感谢 可以了，谢谢老师 

老师 可以帮忙看看这两段代码吗？

此主题相关图片如下：qq截图20200207140530.jpg

e.Form.Controls("ComboBox1").Text = ProjectPath.Chars(0) & ":\回款\收付凭证\" & e.Form.Controls("ComboBox2").Text

FileSys.CreateDirectory(e.Form.Controls("ComboBox1").text )

basemainform.windowstate = 1
For Each f As WinForm.Form In Forms
    If f.Opened AndAlso f.baseform IsNot Nothing Then
        f.baseform.windowstate = 1
    End If
Next

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    Dim f As String = forms("窗口6").Controls("ComboBox1") .text & "\" & format(Date.Now, "yyyyMMddHHmmss") & " .jpg"
    ClipBoard.GetImage.save(f)
    forms("窗口6").Controls("ComboBox3").text  = f
    msgbox("已经保存到路径")
End If

basemainform.windowstate = 2
For Each f As WinForm.Form In Forms
    If f.Opened AndAlso f.baseform IsNot Nothing Then
        f.baseform.windowstate = 2
    End If
Next

可以了 太感谢老师了，一点就好了 ，感谢 感谢 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    Dim f As String = forms("窗口6").Controls("ComboBox1") .text & "\" & format(Date.Now, "yyyyMMddHHmmss") & " .jpg"
    ClipBoard.GetImage.save(f)
    forms("窗口6").Controls("ComboBox3").text  = FileSys.GetName (f)
    msgbox("已经保存到路径")
End If