Question

VB创建文件夹与保存图片

Private Sub Command1_Click()
Dim r As Long
If Dir("D:\abc", vbDirectory) <> "" Then
Shell "cmd /c""rmdir.exe /s /q D:\abc\""", vbNormalFocus
MkDir "D:\abc"
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "D:\abc\123.bmp "
MsgBox "保存成功！", vbInformation + vbOKOnly, "提示"
r = ShellExecute(0, "open", "D:\abc", 0, 0, 1)
Else
MkDir "D:\abc"
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "D:\abc\123.bmp "
MsgBox "保存成功！", vbInformation + vbOKOnly, "提示"
r = ShellExecute(0, "open", "D:\abc", 0, 0, 1)
End If
End Sub
请问错在哪里了，怎么改。
还有帮忙简化下。
MkDir "D:\abc"
路径\文件访问错误

Answer 1

Private Const VK_SNAPSHOT = &H2C
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
没有声明而已，把以上代码加入通用声明里即可

追问

这个代码我有

追答

在按钮事件中加入下面语句，加在第一行
On Error Resume Next

追问

那错误还是没解决啊。得按两次才能再保存一次啊。

追答

把你程序的作用说说，不然我无法继续帮你解决

追问

把程序内容用图片保存，然后（手动）发到网上
具体是一个提建议用的。

追答

Option Explicit
Private Const VK_SNAPSHOT = &H2C
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
On Error Resume Next
Dim r As Long
MkDir "D:\abc"
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "D:\abc\123.bmp "
MsgBox "保存成功111111！", vbInformation + vbOKOnly, "提示"
r = ShellExecute(0, "open", "D:\abc", 0, 0, 1)
End Sub

这是完整代码，你试试

Answer 2

把你的代码拷贝到我的VB上运行，错误行为

keybd_event VK_SNAPSHOT, 1, 0, 0

错误类型：子程序或函数未定义

Answer 3

MkDir "D:\abc"
路径\文件访问错误
原因在于：d:\abc文件夹已经存在！
你可以加一个判断，如果文件夹不存在，则创建！代码如下！
If Dir("d:\abc", vbDirectory) = "" Then MkDir "D:\abc"

Answer 4

错在哪一行你不肯说

Answer 5

LZ，请说明错误提示，及出错行数！

追问

第一个MkDir "D:\abc"
路径\文件访问错误