username in Dateipfad
werner
ich Bitte um Hilfe, da ich die richtige Syntax nicht finde:
Der Test-Code unten funktioniert nur, wenn ich statt Application.username meinen Username direkt einsetze, das ganze soll aber im Netzwerk laufen bei allen Usern (kommt dann ins workbook_open Ereignis).
Sub XAR()
Dim sPfad As String
sPfad = "C:\Dokumente und Einstellungen\Application.username\Anwendungsdaten\Microsoft\Excel\" & _
"*" & ".xar"
If Dir(sPfad) "" Then MsgBox "ja" Else: MsgBox "nein"
End Sub
Werner
Anzeige