Server 在VB6中，如何使用FileSystemObject访问多台服务器上的目录？

在一个项目中，我们有一个包含以下字段的表：

FolderPath、FileType、DaysToKeep、ServerIP

执行该实用程序时，我从表中读取

rs

，然后想访问

[ServerIP]\[FolderPath]

以查看

Now（）的增量，并且第一个文件（或一个文件）的上次保存日期大于
DaysToKeep

我已经完成了大部分伪代码，并且相信能够在本地服务器上使用
FileSystemObject
（导入Microsoft脚本运行时）完成这项工作

我在想，我可能必须为公用事业的服务器上的每台服务器创建一个共享，并通过驱动器号而不是IP地址访问它们

对于给定的IP地址，有没有办法做到这一点？
Kill“\\”&serverIP&“\”&FolderPath&“\*.*”
？我真的不明白您遇到了什么问题。您的数据库似乎有足够的信息来定位文件夹/文件。。。问题是如何根据服务器IP地址正确地查找路径？在这种情况下，@GSerg的评论就说明了这一点。
rsDirectoryList.MoveFirst
Do While Not rsDirectoryList.EOF
    ' Fields: FolderPath, FileType, DaysToKeep, ServerIP

    Debug.Print "Values: " & rsDirectory.Fields("FolderPath").Value

    ' get directory contents from [ServerIP]:[FolderPath]
    'fileSpec = rsDirectory.Fields("ServerIP") & rsDirectory.Fields("FolderPath")

    Set f = fso.GetFile(fileSpec)

    Debug.Print "Last Modified: " & f.DateLastModified & vbNewLine

    ' Get the date of the first file from [ServerIP]\[FolderPath]


    ' If Now() - FileDate in days > DaysToKeep, purge directory
    'If DateDiff("d", Now(), f.DateLastModified) > rsDirectory.Fields("DaysToKeep").Value Then
    '    ' Delete files from specified directory
    '    Kill (serverIP \ FolderPath)   ?????
    'Else
    '    Debug.Print "Skipping: " & rsDirectory.Fields(0).Value & vbNewLine
    'End If


    rs1.MoveNext
Loop