VBScript для копирования файлов из библиотеки документов с устройства Android в моей сети в каталог Windows - PullRequest
Новая
       30

VBScript для копирования файлов из библиотеки документов с устройства Android в моей сети в каталог Windows

0 голосов
/ 02 октября 2018

У меня есть файлы .xlsx в папке документов нескольких планшетных устройств Android в моей сети.Каталоги названы одинаково.Поэтому единственная разница между каталогами - это само название устройства.например, \ device1 \ documents * \ device2 \ documents * etc.

Я знаю имена устройств в сети, и поэтому я пытаюсь ПЕРЕМЕСТИТЬ, используя 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"
...