Thema Datum  Von Nutzer Rating
Antwort
22.10.2012 18:35:17 Gast77628
NotSolved
22.10.2012 18:56:17 Dekor
NotSolved
22.10.2012 21:23:59 Gast11229
NotSolved
Blau "Speichern unter" für Netzwerkpfad und Erstellung neuen Ordners
 24.10.2012 12:17:54 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
24.10.2012 12:17:54		 Views:
1184		 Rating:
     
Antwort:
  Ja
Thema:
"Speichern unter" für Netzwerkpfad und Erstellung neuen Ordners

Hallo Lena,

als Ansatz kann ich hiermit dienen..., wie gesagt die Netzwerklaufwerke müssen mit einem Laufwerksbuchstaben versehen sein und die entsprechenden Berechtigungen über Windows eingestellt haben.

      Pfad = "Z:\Ordner\Temp\"
      Pfad_Q = Pfad & "Unterordner\"
      
      Set oFSO = CreateObject("Scripting.FileSystemObject")

      Laufwerk = Mid(Pfad, 1, 2)
      For Each oDrive In oFSO.Drives
         'msgbox oDrive
         If oDrive = Laufwerk Then
            GL = True
         End If
      Next

      If GL Then
         If Not oFSO.FolderExists(Pfad) Then
            MsgBox Pfad & " ist nicht vorhanden" 
         Else
            MsgBox " Pfad " & Pfad & " ist Vorhanden"
            If Not oFSO.FolderExists(Pfad_Q) Then
               MsgBox " Ordner " & Pfad_Q & " existiert nicht! Wird erstellt" 
               On Error Resume Next
               If oFSO.CreateFolder(Pfad_Q) Then
                  MsgBox " Ordner " & Pfad_Q & " wurde korrekt erstellt!"
               Else
                  MsgBox " Ordner " & Pfad_Q & " wurde NICHT erstellt"
               End If
            Else
               MsgBox " Ordner " & Pfad_Q & " existiert"
         End If
     End If

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.10.2012 18:35:17 Gast77628
NotSolved
22.10.2012 18:56:17 Dekor
NotSolved
22.10.2012 21:23:59 Gast11229
NotSolved
Blau "Speichern unter" für Netzwerkpfad und Erstellung neuen Ordners
 24.10.2012 12:17:54 Dekor
NotSolved