Dokumente folder wird hochgeladen: wie stoppen? -> windows sagt: Dieser Pfad ist nicht...

Herzlichen Dank vorweg für die Antwort.

Da habe ich bereits angerufen und man sagte mir, laden sie alles hoch, was sie haben.

Nun, wie gesagt, ich habe meinen Ausweis hochgeladen, meinen Online-Stundenplan und jedesmal habe ich angefragt, welches Dokument. Die Auskunft habe ich auch nicht per Telefon erhalten.

Jetzt hab ich mir extra das Surface geholt, alles umgestellt und dann diese Odyssee

Hallo Desislava, ein Notizbuch sehe ich nicht. Ich sehe überhaupt nur einen Folder in dem ein Dokument 'How to start with OneDrive' drin ist. Online habe ich diverse Ordner hochgeladen in den Sharepoint, die ich auf meinem Laptop, wo ich OneDrive auch installiert
habe, auch sehen kann. Nur auf dem iMac eben leider nicht. Wie ich einen Account dem OneDrive hinzufüge, habe ich auch nicht herausgefunden. Sehr mühsam leider.

Danke für Unterstützung!

Friederike Gudehus

...scheinbar wurde das Bild nicht hochgeladen. Die Fehlermeldung sagt, dass das Problem nicht behoben werden konnte.

Hi Sven,

würde ich eher nicht sagen. Wir reden hier in der Regel von ein paar Excellisten (nichts übergroßes) und einige Worddokumente. Alle Dokumente immer nur im KB Bereich. Also nichts, was irgendwie irre groß wäre und ständig neu hochgeladen werden müsste. Nach
einem Neustart, sagt OneDrive aber z.B. das über 14.000 Dateien Synchronisiert werden müssen. Was komisch ist, da vor dem Neustart, alles aktuell gewesen ist.

Gruß,

Mike

So dachte ich mir das, ob's hilft.... versuch macht kluch.

BTW, das in Deinem Beispiel einmal "strPfad" und einmal "Pfad" steht ist nur ein Tippfehler?

Andreas.

Sub Test()

Dim fso As Object 'Scripting.FileSystemObject

Dim Folder As Object 'Scripting.Folder

Dim Pfad As String

Dim T As Single



Pfad = "//firmennetz/bibliothek/ordner"



Set fso = CreateObject("Scripting.FileSystemObject")

T = Timer

Do While Not fso.FolderExists(Pfad) And Timer - T < 1

DoEvents

Loop

If Not fso.FolderExists(Pfad) Then

MsgBox "Server busy, try again later."

Exit Sub

End If

Set Folder = fso.GetFolder(Pfad)

End Sub