VBA运用网盘检测更新提示

q99999

各位老师，请教一下，VBA可以写一个文件检测吗，比如我某网盘上放一个文件名为1234的文件，当我这个网盘上的文件换成12345了，跟VBA内部记录的文件名不一致的时候，执行完毕后有一个弹窗提醒，如果电脑是没网络的则不做任何弹窗提示，请问各位老师，可以实现吗？这个是怎么个写法呢？

vitrel

楼主，您好！
我写了一个，您看是否符合您的要求：

1. Private Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Long
   
2. 
   
3. Sub Test()
   
4.     Dim netweb&, fso As Object
   
5.     If InternetGetConnectedState(netweb, 0) <> 0 Then
   
6.         Set fso = CreateObject("Scripting.FileSystemObject")
   
7.         If fso.FileExists("\\hiwifi\mobile\1234.xls") Then '这里填写目标文件在局域网上的地址全称
   
8.             MsgBox "局域网上，1234.xls文件存在"
   
9.         Else
   
10.             MsgBox "局域网上，1234.xls文件不存在"
    
11.         End If
    
12.         Set fso = Nothing
    
13.     Else
    
14.        MsgBox "系统 未连接 网络"
    
15.     End If
    
16. End Sub

复制代码

q99999

vitrel 发表于 2022-1-21 12:36
楼主，您好！
我写了一个，您看是否符合您的要求：

老师，请问可以做成用百度网盘的检测吗，局域网有一定局限性，因为公司不止一个网段，只能用互联网作为公共检测这个文件比较靠谱。

vitrel

q99999 发表于 2022-1-22 22:08
老师，请问可以做成用百度网盘的检测吗，局域网有一定局限性，因为公司不止一个网段，只能用互联网作为公 ...

楼主，您好！是一场误会，您一开始提到的“网盘”，我当时没理解是百度网盘这类“网盘”，我以为是局域网上的网盘。

我个人能力有限，以我猜想，要用VBA来检测（如百度这样的）网盘，估计非常困难，
最大的阻力是基于安全问题，百度不会轻易开放内部的接口供公众访问，因此也无从下手了。
总的来说，
VBA可以判断网线有没有连网，
VBA可以通过Ping域名的方式判断有没有连接互联网，
VBA可以通过判断局域网指定的文件（或文件夹）是否存在来判断是否连接局域网，
至于再高级的功能，就等待高手们进一步回答吧。

q99999

vitrel 发表于 2022-1-23 08:54
楼主，您好！是一场误会，您一开始提到的“网盘”，我当时没理解是百度网盘这类“网盘”，我以为是局域网 ...

非常感谢，学习了