Ordner über Liste erstellen

Bild

Betrifft: Ordner über Liste erstellen
von: Anton
Geschrieben am: 14.04.2005 17:15:00
Hallo Leute,
ich hab' noch ein Problem:
Meine Liste hat 382 Einträge in Spalte A.
Jeder Eintrag soll einen Ordner-Namen geben.
Das Verzeichnis in dem das genze wohnen soll heißt:
Y:\MBI\Hammerfest\MRB\PO mit Bookmarks\
Ich hab' mal gegoogelt, und das hier gefunden:
http://www.chip.de/c1_forum/thread.html?bwthreadid=771589
Mein bisheriger Code schaut so aus:


Sub ordner1()
For counter = 1 To 382
x = 2
y = 2
Pname = "Y:\MBI\Hammerfest\MRB\PO mit Bookmarks\" & Cells(1, 1).Value
MkDir Pname
y = y + 1
Next
End Sub

Ergebnis: Laufzeitfehler 75: " Fehler beim Zugriff auf Pfad / Datei"
Wer kann mir bitte weiterhelfen?
Dank' Euch,
Servus,
Anton
Bild

Betrifft: AW: Ordner über Liste erstellen
von: ransi
Geschrieben am: 14.04.2005 18:12:12


      
hallo
mal ein versuch:
allerdings ungetestet
Option Explicit

Sub ordner1()
Dim counter As Integer
Dim Pname As String
For counter = 1 To 382
'wenn die namen in spalte A stehen.
'allerdings ist das ganze ohne überprüfung auf unerlaubte zeichen.
Pname = "Y:\MBI\Hammerfest\MRB\PO mit Bookmarks\" & Cells(counter, 1).Value
MkDir Pname
Next
End Sub
ransi 


Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: Anton
Geschrieben am: 15.04.2005 09:04:23
Hallo Ransi,
leider auch mit Deinem Code der schon beschriebene Laufzeitfehler 75.
Im Debugger mault er "MkDir Pname" an.
Was kann man da machen?
Dank' Dir,
Anton
Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: MichaV
Geschrieben am: 15.04.2005 09:20:44
Hi,
der Code ist okay. Bei mir kommt der Fehler, wenn die Ordner bereits vorhanden sind. Dann brauchst Du sie aber auch nicht nochmal neu anlegen.
Gruß- Micha
PS: Rückmeldung wäre nett.
Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: Anton
Geschrieben am: 15.04.2005 09:37:47
Hallo Micha,
nur der erste Ordner wurde erstellt.
ich hab's auch mal mit C:\ probiert....

Sub ordner1()
Dim counter As Integer
Dim Pname As String
For counter = 1 To 382
'wenn die namen in spalte A stehen.
'allerdings ist das ganze ohne überprüfung auf unerlaubte zeichen.
Pname = "c:\" & Cells(counter, 1).Value
MkDir Pname
Next
End Sub

Da tut sich nix.
Dank' Dir,
Servus,
Anton
Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: MichaV
Geschrieben am: 15.04.2005 09:49:54
Hi,
Sorry, da scheint was mit Deinen Ordnernamen nicht zu stimmen. Wie lautet denn der Eintrag in Zeile 2? Ich hab den Fehler nur noch erzeugen können, wenn Zelle leer. Ansonsten funzt es ohne Probleme.
Gruß- Micha
Bild

Betrifft: AW: hier ist die Datei
von: Anton
Geschrieben am: 15.04.2005 11:57:53
Hallo Micha,
hier schicke ich Dir die Datei....
https://www.herber.de/bbs/user/21190.xls
dann können wir das Problem vielleicht erschlagen.

Dank' Dir,
Servus,
Anton
Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: Fritz
Geschrieben am: 15.04.2005 13:03:38
Hi Anton,
Die Ordnernamen sind OK. Aber das LW "Y" ist sicherlich ein Netz-LW und Du hast keine
Schreibberechtigung?!

Fritz
Bild

Betrifft: AW: immer noch Laufzeitfehler 75
von: Anton
Geschrieben am: 15.04.2005 13:28:09
Hallo Fritz,
über den Explorer geht alles (Vollzugriff)
Habe sicherheitshalber das ganze mal mit "c:\" probiert.....
Gleiche Fehlermeldung.
Dank' Dir,
Servus,
Anton
Bild

Betrifft: hab's inzwischen von Hand runtergetippt
von: Anton
Geschrieben am: 15.04.2005 16:55:51
Hallo Leute,
dies Problem habe ich inzwischen "von Hand" gelöst.
Vielleicht knacken wir das nächste mal die Nuß.
Für Eure Mitwirkung bedankt sich
und wünscht ein schönes Wochenende,
Euer Anton.
PS: Montag schau' ich an dieser Stelle nochmal rein.
Vielleicht hat ja Jemand eine Idee....
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ordner über Liste erstellen"