Question

我的网络上多个Android平板电脑设备的documents文件夹中都有.xlsx文件。这些目录的名称相同。因此，目录之间的唯一区别是设备名称本身。例如 \ device1 \ documents * \ device2 \ documents * 等

我知道网络上设备的名称，因此我试图使用VBSCRIPT将\ documents *目录中的所有文件移动到同一网络中计算机的中央目录中，例如“ \ computer \ desktop \ devicedocumentfolder \”

这是我到目前为止所拥有的。从概念上讲，我缺少在每个设备目录中标识文件并将它们全部移到运行此脚本的主计算机的过程。任何帮助将不胜感激！

Dim oFSO, sDList, sDevice
Dim file
Const ForReading = 1

'Get devices-------------------

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set sDList = oFSO.OpenTextFile("c:[computername]\desktop\devicenames.txt")
Do Until sDList.AtEndOfStream
sDevice = sDList.ReadLine
msgbox(sDevice)

'Get and move files from each device to main computer -------
mainComp = "\\c:[computername]\desktop\deviceDocuments\"
file = "\\" & sDevice & "\documents\*"
If oFSO.FileExists(file) Then
msgbox("file exists")
oFSO.movefile file, mainComp
else
msgbox("no files exist on this device")
end if

Loop
sdList.Close
WScript.Echo "Finished moving files from devices"

VBScript将文件库中的文件从网络中的Android设备复制到Windows目录

0 个答案: