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

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

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

此主题相关图片如下：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