Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Netzwerkpfad per FileSystemObject wechseln

Forumthread: Netzwerkpfad per FileSystemObject wechseln

Netzwerkpfad per FileSystemObject wechseln
15.05.2008 07:54:29
Wilfried
Mein Problem:
Ich möchte einen Netzwerkpfad per FileSystemObject wechseln.
z.B. von:
\\jupadb04\Allgemein$\Berichte
nach:
\\jupadb02\Sicherung$\Planung\2008
Leider habe ich bislang leider noch keinen Beispielcode gefunden.
Es gibt wohl: Drive-Objekt, Folder-Objekt und File-Objekt
Ich würde mich daher sehr über Eure Hilfe freuen.
Gruß
Wilfried

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Netzwerkpfad per FileSystemObject wechseln
15.05.2008 09:16:00
Rudi
Hallo,
wozu?
Gruß
Rudi

AW: Netzwerkpfad per FileSystemObject wechseln
15.05.2008 09:42:00
Wilfried
Hallo Rudi
Ich habe folgendes Problem:
Aufgrund einer Serverumstellung ändert sich die Verzeichnisstruktur.
Bei der Umstellung möchte ich jetzt alle Laufwerksangaben in den Makros durch die vollständige Serveradresse ersetzen.
Bei folgendem Makro bekomme ich jedoch immer eine Fehlermeldung:

Sub Dateien_Loeschen()
Dim FName As String, FCount As Integer
Dim FileArray()
Dim ProcessCounter As Integer
'Dim oName$
'hier Verzeichnis eingeben:
'oName = "\\juprds03\KEC_Accounting$\CO_Contr\BAB fix_var\2008\aufbereitettest"
'oName = "R:\CO_Contr\BAB fix_var\2008\aufbereitet"
'ChDrive Left(oName, 1)
'ChDir oName
Dir = oName
FName = Dir("*.xls")
Do While FName  ""
FCount = FCount + 1
ReDim Preserve FileArray(1 To FCount)
FileArray(FCount) = FName
FName = Dir()
Loop
For ProcessCounter = 1 To FCount
Kill FileArray(ProcessCounter)
Next
End Sub


Ich möchte R:\ nicht mehr verwenden.
Gibt es eine solche Möglichkeit?
Gruß
Wilfried

Anzeige
AW: Netzwerkpfad per FileSystemObject wechseln
15.05.2008 10:04:11
Rudi
Hallo,
ChDrive und ChDir brauchst du nicht.
oName = "\\juprds03\KEC_Accounting$\CO_Contr\BAB fix_var\2008\aufbereitettest\"
FName=Dir(oName &"*.xls")
Gruß
Rudi

AW: Netzwerkpfad per FileSystemObject wechseln
15.05.2008 10:08:03
Wilfried
Vielen Dank Rudi
Du hast mir wirklich sehr geholfen.
Dieses Forum ist absolut Spitze!!!
Danke und Gruß
Wilfried

Anzeige
Ergänzung...
15.05.2008 10:38:38
Renee
Hi Wilfried,
Wenn du Rudi's Methode anwendest, musst du in deinem Code zusätzlich folgende Änderung beachten:

Statt nur:
Kill FileArray(ProcessCounter)
Muss es heissen:
Kill oName & FileArray(ProcessCounter)


GreetZ Renée

Anzeige
AW: Ergänzung...
15.05.2008 11:40:01
Wilfried
Danke Renee für Deine Ergänzung,
Ich werde den Code jetzt aktualisieren und anschließend hier berichten.
Gruß
Wilfried
;

Forumthreads zu verwandten Themen

Scripting.FileSystemObject-Probl. beim Dateikopier
Tobias

Hello allerseits,
Untenstehende Funktion liesst Ordnernamen in Spalte A aus und schreibt die Unterordner kommagetrennt in Spalte B. Das klappt auch gut, nur:
Sobald ich die Exceldatei in ein anderes Verzeichnis kopiere, klappts nicht nicht mehr.
Erst wieder, wenn ich auf: Speichern...
24.02.2009 16:16:28
Thread-ID: 1053579
14 Beiträge
FileSystemObject? HTTPS Link?
Jessi

Hallo zusammen,
ich habe mal wieder ein Problem.
Ich habe die ganze Zeit mit einem Link auf der lokalen Festplatte gearbeitet. Wollte das Ganze jetzt auf einen MOSS-SERVER schieben und den Code nochmal durchlaufen lassen. Funktioniert aber nicht?
Wie kann ich einen HTTPS (M O S S -...
26.08.2009 13:57:50
Thread-ID: 1098730
2 Beiträge
FileSystemObject und http-Links?
frigo

Hallo zusammen,
ich habe ein Makro, das alle Hyperlinks in einem Excel-Worksheet auf Existenz der Datei überprüft.
Mit allen Links auf Dateien auf einem NT-Share funktioniert dies auch prima, allerdings nicht mit Dateien, die z.B. im Firmen-Intranet eingestellt sind (z.B. 'http://www.in...
25.11.2009 17:56:25
Thread-ID: 1120061
6 Beiträge
Anzeige
Filedate aus filesystemobject
LotharP

Hallo zusammen,
ich habe ein Makro das mal ursprünglich auf alten Versionen recht gut lief und möchte das nun auf 2007 umstricken.
Das Makro las Fileinfos aus einem bestimmten Verzeichnis ein und gab mir in einer Reihe die gewünschten Informationen.
Ich habe das MAkro soweit umgebau...
14.02.2011 11:28:44
Thread-ID: 1200657
2 Beiträge
Dim ClpObj As DataObject
Claudia

Hallo zusammen,
seit heute erhalte ich bei dieser Zeile (verschicke mit dem Makro eine Serin-Mail) den Fehlerhinweis
Fehler beim Kompilieren
Benutzerdefinierter Typ nicht definiert
Ich habe an dne Makro nichts gemacht, daher kann es daran nicht liegen. Hat jemand eine Idee, ob e...
01.03.2011 08:46:31
Thread-ID: 1203549
4 Beiträge
Scripting.FileSystemObject
ing.grohn

Hallo Forum,
folgendes Programm(chen) lief bei mir: Sub LaufWerke() Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Set colDrives = objFSO.Drives For Each objDrive In colDrives MsgBox "Laufwerksbuchstabe: " & objDrive.DriveLetter Next End Sub
jetzt plöt...
02.12.2011 17:22:00
Thread-ID: 1240437
2 Beiträge
Fehler bei CreateObject("Scripting.FileSystemObjec
EaterJoe

Hallo Forum,
ich habe ein VBA Makro, das seit Jahren funktioniert. seit einigen Tagen habe ich es aber nicht gestartet und plötzlich kommt bei meiner Funktion in der Zeile mit "Set fs" der Fehler "Laufzeitfehler '432': Datei- oder Klassenname während Automatisierungsoperation nicht gefunden...
11.12.2013 23:32:08
Thread-ID: 1342253
3 Beiträge
Anzeige
[VBA] CreateObject("Word.Applic.") Makros aktiv?
Nils

Hallo liebe VBA Experten,
ich habe ein Excel Addin, dass mir über CreateObject("Word.Application") aus eine Vorlage.dotm eine Ableitung erzeugt. In der Vorlage.dotm ist ein Makro enthalten. An manchen Rechnern ist Word so konfiguriert, dass das ausführen von Makros abgefragt wird. An diesen...
15.01.2018 10:04:44
Thread-ID: 1602275
5 Beiträge
Dateien per VBA kopieren "FileSystemObject" ?
Dino

Hi Leute,ich benutze dieses Makro um Datein umzubennenen:Sub rename()
'
'die Dateien im markierten Zellenbereich werden umbennant
'
gesZeilen = Selection.Rows.Count
For i = 1 To gesZeilen
oldName = Selection.Cells(i, 1).Value
newName = Selection.Cells(i, 2).Value
Name (o...
10.04.2003 17:24:42
Thread-ID: 243410
2 Beiträge
Hilfe zu: CreateObject("Scripting.FileSystemObject
Mischa Richter

hallo,
gibts zu:
CreateObject("Scripting.FileSystemObject")
und den Verwendungsmöglichkeiten eine gute hilfedatei oder hilfe-site?
Danke - Mischa


09.06.2003 00:08:06
Thread-ID: 266503
2 Beiträge
FileSystemObject
Rene

Moin zusammen,
Ich habe auf meinem Notebook die Excel Tabelle mit VBA erstellt nun habe ich die Tabelle auf einem anderen Rechner kopiert und jetzt zeigt er mir mit einmal an "Fehler beim kompilieren Projekt oder Bibliothek nicht gefunden" an was hab ich verkehrt gemacht?
Gruß Rene
30.12.2004 11:46:01
Thread-ID: 539821
4 Beiträge
Fehler bei FileSystemObject in AddIn
Tobias

Hallo Forum,
habe gleich noch ein zweites problem mit meinem AddIn und hoffe auf Hilfe;-)
In einer Datei habe ich ein Makro, dass mir alle Verzeichnisse eines Laufwerks ausliest.
Nachdem ich das Modul nun in mein AddIn kopiert habe funktioniert es nicht mehr.
Bei der Deklaration...
01.03.2007 18:39:20
Thread-ID: 850584
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige