vb 创建文件及是否存在

Private Sub Form_Activate()
If Dir("D:\保存截图", vbDirectory) = "" Then
MkDir "D:\保存截图"
End If
End Sub