前不久我给小伙伴们简单粗略地介绍了一下如何用 VB6/VBA 将文件批量自动上传到 Sharepoint 的思路和方法。
具体内容可以搜索我以前写的文章《用 VB6/VBA 将文件批量上传到 Sharepoint》。
节目播出后引起了广泛的关注和巨大的反响，人人称赞、好评如潮。
出乎我意料的是，打破了历史记录，前后总共收获了3.5个赞（一个是我自己点的，还一个哥们可能是误点了），让我高兴得合不拢腿！
后来有的小伙伴就问我，有没有想过如何用 VB6/VBA 将文件批量自动上传到 OneDrive 呢？
我正沉浸在疯狂的喜悦中，你说我是不回答，还是不回答呢？
好吧，看大家都这么热情，我也不好推脱什么，就花点时间研究一下吧，希望对大家有用。
对了，麻烦您动动小手点个赞（单数），年底有考核！
说到 OneDrive 呢，我想我不用多啰嗦哈，大家都知道，是一款微软出品的网盘软件，存存文件，放放东西用的。
作为一款还算良心的网盘呢，大家在使用 Office 时多多少少会把文档之类的都顺手放到了 OneDrive 里。
当然这也是微软有意为之搞 OneDrive 的目的，让你的文档放到“云”上，随时随地都可以查看编辑，的确也方便。
这么一来呢，用的多了就会有依赖感，增加了依赖感就更加用得频繁。
好了，回到我们的主题，我想通过 VB6/VBA 自动把文档放到 OneDrive ，怎么办？
最初，我想到的一个笨办法，就是将文档放到本地的 OneDrive 同步文件夹里。
这样的话 OneDrive 就会自动将文档上传同步到云端。
这样做是不是挺简单的？
不过，问题是，OneDrive 的本地同步文件夹在哪个地方？
你会说查看一下 OneDrive 的设置，里面就有文件夹路径啊！
我只能说，同学，图样图森破！
要知道我们现在用的高级工具是 VB6/VBA 哦，不用那么死板哈！
OK，注意，看我手的动作……
在命令提示窗口中打个 set 命令，回车。
嗯，仔细找上这么一找，哎，你就能发现有我们需要的 OneDrive 文件夹变量。
通常它应该是这样式儿的。
OneDrive=C:\Users\username\OneDrive
OneDriveCommercial=C:\Users\username\OneDrive - COMPANY
是不是有眼前一亮的感脚？
前一个 OneDrive 可能是个人版的路径，而后一个 OneDriveCommercial 则是商业版的路径。
先别忙记下来，我们不能直接拿来用，还需要转换成 VB6/VBA 代码，没错，直接上环境变量函数。
Environ$("OneDrive")
Environ$("OneDriveCommercial")
至于要用哪个，就看你的需要了，用的是个人版还是商业版，不过怎么看上去好像实际文件夹路径可能都一样哈。
有了目标文件夹路径，我们下面就可以使用保存函数将文件保存到 OneDrive 的文件夹内，以此来实现上传文件的目的。
当然，这种方法有点傻，不太正宗的感脚，因为只要把 OneDrive 客户端关掉，那么上传功能就等于失效了。
实际上正宗的方法应该是靠 VB6/VBA 程序自己远程上传到 OneDrive 才算数，并不需要依赖 OneDrive 客户端程序。
在本文的后半段我会将正宗的远程上传方法及源代码说明，并且提供示例源代码下载供大家参考。
示例 VB6/VBA 源代码，供大家参考。
Upload4OneDrive（源码示例，含本地和远程两种实现方法）XJVBHttp编译可执行程序XJVBHttp文件上传Sharepoint源代码（OneDrive通用）
下载链接：https://pan.baidu.com/s/1vns1NUgcL3uLTBX9OtBAgA
提取码：<文末付费查看>
在此之前，我先把刚才没说完的内容，如何利用保存函数将文件保存到 OneDrive 同步文件夹内介绍给大家……
首先，我们要先确认我们想要上传的文档是什么格式，这个有一些讲究……
以下内容请付费查看
↓↓↓↓↓↓↓↓
★扫码关注公众号， 发送【001063】获取阅读密码
将技术融入生活，打造有趣之故事
网管小贾 / sysadm.cc
