Member 8587273 Ответов: 1

Как вставить файл в определенную папку на Google Диске VB.NET


На самом деле, я разрабатываю приложение в vb.net .
Первый шаг, я хочу создать папку и подпапку в google Диске (конечно, мне нужен тест, существует ли папка или нет ), затем я хочу загрузить файл в определенную папку в драйвере google

вот мой код

Public Sub createfolder()

    Dim dossier = New Google.Apis.Drive.v2.Data.File()

    dossier.Title = dat_sauv.SelectedItem 'title from combobox in forms
    dossier.MimeType = "application/vnd.google-apps.folder"

    Dim rep = Service.Files.Insert(dossier)
    rep.Fields = "id"

    Dim file = rep.Execute()

    'sub folder Creation
    Dim subfolder = New Google.Apis.Drive.v2.Data.File()

    'title from radio button in forms
    If (VT.Checked = True) Then
        subfolder.Title = VT.Text
    ElseIf (vm.Checked = True) Then
        subfolder.Title = VM.Text
    ElseIf (VI.Checked = True) Then
        subfolder.Title = VI.Text
    Else
        subfolder.Title = VF.Text
    End If

    subfolder.MimeType = "application/vnd.google-apps.folder"

    Dim res = Service.Files.Insert(subfolder)
    res.Fields = "id"

    Dim fil = res.Execute()
    dossier.Parents = subfolder

end sub


Что я уже пробовал:

мне удалось создать папку , но не подпапку
и мне удалось загрузить файл на google Диск, но не в определенную папку

1 Ответов

Рейтинг:
1

Graeme_Grant

Это не похоже на то, что вы передаете идентификатор родительской папки в подпапку перед выполнением команды create folder...


Member 8587273

1 / как и где я это делаю ?
я вызвал метод createfolder() в событии button

2 / для загрузки файла в определенную папку вот мой код

Private Sub UploadFile(FilePath As String)


'Ла-парти-де-л Русьимпорт-дю-компьютеризованная данс Ле ездить
Dim ByteArray As Byte () = System.IO.File.Лир ReadAllBytes(Путь_к_файлу) ' Ле компьютеризованная данс доски ООН д'octet
Dim Stream As New System. IO. MemoryStream (ByteArray) ' lire le bloc d'Octet du tableau et écrit les données dans une mémoire temp

'Вставки компьютеризованная данс Ле ездить
Дим F как новый Google.Апис.Езды.В2.Данных.Файл()
Ф.Название = fichier_txt.Текст
Ф.Описание = " компьютеризованная езды"
f. MimeType = " text / plain, image/jpeg"

Затемнение Как Файловый Ресурс.InsertMediaUpload = Сервис.Файлы.Вставка(Ф, поток, Ф.Умолчанию.)
Вверх.Загрузить() ' Ла методу Квай свершившимся л'upload данс Ле ездить

MsgBox ("Upload Successful") ' Succés d'upload

Конец Подводной Лодки

Graeme_Grant

Я создал свой собственный API lib для Google Drive API. Глядя на документацию, вы устанавливаете ее в метаданные... Работа с папками  |  Drive REST API  |  Разработчики Google[^]- Посмотрите на пример "вставка файла в папку"... папка работает так же...