Problem mit dir auf verschidenen Computer
15.01.2007 08:50:27
chris
bin gerade auf ein wunderbares problem gestoßen :(
Hoffe ihr könnt mir heöfen.Wäre sehr dankbar.
der anfang von Makro sieht so aus.
Option Explicit
Sub prüfen()
Dim pfad1 As String
Dim pfad2 As String
Dim name1 As String
Dim x As Integer
Dim lz As Integer
Dim lz2 As Integer
Dim y As Integer
Dim i As Integer
pfad1 = "T:\test1\"
pfad2 = "T:\erledigt\"
Cells.ClearContents
Cells(1, 1) = "offene"
Cells(1, 3) = "erledigt"
'-------- 1 Verzeichniss auslesen und Ergebniss eintragen in Spalte 1
name1 = Dir(pfad1, vbDirectory)
x = 2
Do While name1 ""
If name1 "." And name1 ".." Then
Cells(x, 1) = name1
x = x + 1
End If
name1 = Dir
Loop
Jetzt zum Problem.Bei mir trägt er hier in der variable
name1 = Dir(pfad1, vbDirectory)
erst "." dann ".." und dann den Namen des Aktuellen Verzeichnisses ein,
bei meinem Kollegen bleibt die Variable name1 leer ""
Warum wie kann das sein ? Wir haben beide die gleiche Excel Version.
Würde mich freuen wenn ihr mir dabei helfen könntet.
Vielen dank
gruß Chris