回 帖 发 新 帖 刷新版面

主题:询问各位大侠关于上传照片的问题

小弟我才学不久
现在搞了个管理系统 ,需要添加人员信息
照片需要上传到服务器上~我写的代码为:
    FileAddress=thisform.Imgpic.Picture
    copy file (FileAddress) to "D:\Test\testimg"
    messagebox(ss, 64, "保存出错")
请问这样写是否可以保存到服务器
\\th\y@999$\bmp\   里
如果可以的话~
怎么判断copy file (FileAddress) to "D:\Test\testimg"
是否保存成功 ?  copy file没有返回值.请各位大侠不吝赐教!

回复列表 (共3个回复)

沙发

if file("\\th\y@999$\bmp\")
    ?"保存成功"
endif

板凳

    FileAddress=thisform.Imgpic.Picture
    copy file (FileAddress) to "D:\Test\testimg"
    
    if file("D:\Test\testimg")
                ?"保存成功"
                messagebox("保存成功!!", 64, "保存信息")
    endif

保存了,还是没有弹出对话框,提示我成功啊...顺便问下   ?"保存成功"   什么意思?

3 楼

谢谢,2楼的兄弟,已经知道怎么搞了,非常感谢啊!
if file(保存的位置)
原来如此啊,呵呵~

我来回复

您尚未登录,请登录后再回复。点此登录或注册