|
Компьютерный форум OSzone.net » Компьютеры + Интернет » Хочу все знать » [решено] Заливка файлов на Google Drive |
|
[решено] Заливка файлов на Google Drive
|
Новый участник Сообщения: 13 |
Профиль | Отправить PM | Цитировать
Добрый день!
Возник вопрос на который я не смог найти ответа ни на форуме ни в Internet/ Каким приложением можно заливать файлы с локального компьютера на Google Drive в раздел общие диски? Дано: есть папка на компьютере "папка1"; в ней есть файл 1.txt (C:\папка1\1.txt); есть "папка2" доступна по ссылке на Google Drive: https://drive.google.com/drive/folde...ye?usp=sharing каким ПО можно: проверить есть ли уже файл (C:\папка1\1.txt) в целевой папке - "папка2"; если файла нет в целевой папке - залить его туда используя только ссылку. Решения типа Duplicati или аналоги требующие ввода логина и пароля от аккаунта гугла или требующие предоставления доступа сторонним ресурсам не предлагать. Необходимо ПО/скрипт для локального ПК, желательно под виндой. |
|
Отправлено: 14:29, 29-08-2021 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать cobra2029, берёте RaiDrive, устанавливаете, настраиваете. Затем пользуете для:
Цитата cobra2029:
Цитата cobra2029:
Цитата cobra2029:
|
|||
Отправлено: 16:29, 29-08-2021 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 13
|
Профиль | Отправить PM | Цитировать |
Отправлено: 18:39, 29-08-2021 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата cobra2029:
Скрытый текст
Option Explicit Const strNetDrive = "Y:" Const strUserName4GoogleDrive = "UserName" Dim objFSO Dim strNetFolder ' Сетевой каталог Dim strLocalFolder ' Локальный каталог Dim strFileName ' Имя файла Dim strSourceFile Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") strNetFolder = strNetDrive & "\папка2" strLocalFolder = "C:\папка1" strFileName = "1.txt" If IsMapped(strNetDrive, "\\RaiDrive-" & strUserName4GoogleDrive & "\Google Drive") Then strSourceFile = objFSO.BuildPath(strLocalFolder, strFileName) If objFSO.FileExists(strSourceFile) Then If objFSO.FolderExists(strNetFolder) Then If Not objFSO.FileExists(objFSO.BuildPath(strNetFolder, strFileName)) Then objFSO.CopyFile strSourceFile, strNetFolder & "\" Else ' Nothing to do End If Else WScript.Echo "Not found remote folder [" & strNetFolder & "]." WScript.Quit 1 End If Else WScript.Echo "Can't find source file [" & strSourceFile & "]." WScript.Quit 2 End If Else WScript.Echo "Not found share [\\RaiDrive-" & strUserName4GoogleDrive & "\Google Drive]." WScript.Quit 1 End If Set objFSO = Nothing WScript.Quit 0 '----------------------------------------------------------------------------- '----------------------------------------------------------------------------- Function IsMapped(strDrive, strShare) Dim i IsMapped = False With WScript.CreateObject("WScript.Network").EnumNetworkDrives For i = 0 To .Count - 1 Step 2 If StrComp(.Item(i), strDrive, vbTextCompare) = 0 And _ StrComp(.Item(i + 1), strShare, vbTextCompare) = 0 Then IsMapped = True Exit For End If Next End With End Function '----------------------------------------------------------------------------- Удалённые имена («удалённые» — здесь «remote», а «deleted») после подключения буквы диска в RaiDrive смотрите по: |
|
Отправлено: 20:12, 29-08-2021 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Резервное копирование может перейти от Google+ Фото к Google Drive | OSZone News | Новости информационных технологий | 0 | 11-03-2015 21:30 | |
Google ненадолго даёт 1 Тб в Google Drive при покупке хромбуков от $200 | OSZone News | Новости железа | 0 | 22-11-2014 21:30 | |
Google снижает стоимость подписки в Google Drive и убирает подчёркивание в поиске | OSZone News | Новости информационных технологий | 0 | 15-03-2014 01:30 | |
PowerShell - [блог] Загрузка PDF файлов на Google Drive используя Google API | Kazun | Скриптовые языки администрирования Windows | 0 | 24-11-2013 17:30 | |
[решено] Заливка файлов на хостинг без использования скриптов | noleiemit | Вебмастеру | 5 | 23-07-2008 12:49 |
|