Na Klar.
Eine Datei in einen Unterordner von Google Drive kopieren.
Private Sub Datei_in_Unterordner(FilePath As String)
' Checking if the Service is still alive, if not create the service again.
If moService2.ApplicationName <> "GoogleCloud-Backup" Then CreateService()
Dim oGDriveFile As New Google.Apis.Drive.v2.Data.File With {
.OriginalFilename = System.IO.Path.GetFileName(FilePath),
.Title = .OriginalFilename,
.Description = "Google Drive Backup",
.MimeType = GetMimeType(FilePath),
.Parents = New List(Of ParentReference)() From {New ParentReference() With {.Id = Get_folderID("Erster Unterordner")}}}
Dim bArrByteArray As Byte() = System.IO.File.ReadAllBytes(FilePath) ' Your File Path from where you would want to upload from.
Dim oStream As New System.IO.MemoryStream(bArrByteArray)
Dim oUploadRequest_insert As Google.Apis.Drive.v2.FilesResource.InsertMediaUpload
oUploadRequest_insert = moService2.Files.Insert(oGDriveFile, oStream, oGDriveFile.MimeType)
oUploadRequest_insert.Fields = "id"
oUploadRequest_insert.Alt = Google.Apis.Drive.v2.FilesResource.InsertMediaUpload.AltEnum.Json
oUploadRequest_insert.Upload()
MsgBox("Insert abgeschlossen!")
End Sub
Public Function Get_folderID(ByVal Ordnername As String) As String
If moService2.ApplicationName <> "GoogleCloud-Backup" Then CreateService()
Dim findrequest As Google.Apis.Drive.v3.FilesResource.ListRequest = moService3.Files.List
Dim list1 As Google.Apis.Drive.v3.Data.FileList = findrequest.Execute()
Dim FolderID As String = ""
For Each Folders As Google.Apis.Drive.v3.Data.File In list1.Files
If Folders.MimeType = "application/vnd.google-apps.folder" Then
If Folders.Name = Ordnername Then
FolderID = Folders.Id
Exit For
End If
End If
Next
Return FolderID
End Function
Der Interessante Teil an dem ich lange hing war die .Parent Property, der Info die besagt in welchem Unterordner die Datei reinkopiert werden soll. Insbesondere die Übergabe der OrdnerID. Aber mit dieser Lösung geht es wunderbar.
Als kleiner Obulus noch ein Schnipsel hinterher.
Das Erstellen eines Unterordners in einen vorhandenen Ordner in Google Drive.
Private Sub Unterordner_erstellen_btn_Click(sender As Object, e As EventArgs) Handles unterordner_erstellen_btn.Click
If moService2.ApplicationName <> "GoogleCloud-Backup" Then CreateService()
Dim subfolder = New Google.Apis.Drive.v2.Data.File()
Dim folderID As String = ""
folderID = Get_folderID("Erster Unterordner") ' ist der Ordner in dem der Unterordner reinkopiert werden soll überhaupt vorhanden?
If folderID = "" Then
MsgBox("Übergeordneter Ordner nicht vorhanden. Bitte erstellen.")
Exit Sub
End If
If CheckForDuplicateFolder(folderID, "Zweiter Unterordner") = False Then
subfolder.Title = "Zweiter Unterordner"
subfolder.MimeType = "application/vnd.google-apps.folder"
subfolder.Parents = New List(Of ParentReference)() From {New ParentReference() With {.Id = folderID}}
Dim res = moService2.Files.Insert(subfolder)
res.Fields = "id"
Dim fil = res.Execute()
MsgBox("Ordner Unterordner erstellen abgeschlossen!")
Else
MsgBox("Unterordner schon vorhanden!")
End If
End Sub
Public Function CheckForDuplicateFolder(ByVal FolderID As String, ByVal NewFolderNameToCheck As String) As Boolean
Dim ResultToReturn As Boolean = False
Try
Dim request = moService2.Files.List()
Dim requeststring As String = ("'" & FolderID & "' in parents And mimeType='application/vnd.google-apps.folder' And trashed=false")
request.Q = requeststring
Dim FileList = request.Execute()
For Each File_tmp In FileList.Items
If File_tmp.Title = NewFolderNameToCheck Then
ResultToReturn = True
End If
Next
Catch EX As Exception
MsgBox("THERE HAS BEEN AN ERROR" & EX.Message)
End Try
Return ResultToReturn
End Function
Public Shared Function GetMimeType(fileName As String) As String
Dim mimeType As String = "application/unknown"
Dim ext As String = System.IO.Path.GetExtension(fileName).ToLower()
Dim regKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(ext)
If regKey IsNot Nothing AndAlso regKey.GetValue("Content Type") IsNot Nothing Then
mimeType = regKey.GetValue("Content Type").ToString()
End If
Return mimeType
End Function
viel Spass
Andreas
