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:
1318
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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