If Dir(App.Path & "\gamesave.sve") <> " " Then
    Call LoadGame
    MuQianYuEr.Caption = JingErPangDing
End If
'上面的代码是判断文件是否存在！

If Dir(App.Path & "\历史走势图\", vbDirectory) = " " Then MkDir App.Path & "\历史走势图\"
'上面的代码是判断目录是否存在！

'上述代码经我调试完全不起作用！请高手指点指点！