[gelöst] spezielle Informationen auslesen

[wega]

Hallo zusammen,

in einer Verwaltungsdatei soll ich folgende Informationen hinterlegen:

a) Rechnername
b) Dateiname + Pfad
c) letztes Bearbeitungsdatum der Datei.

Gelöst habe ich b), den Dateinamen + Pfad.

Wie komme ich an den Rechnernamen
und wie komme ich an die Dateiinformation?

mit freundlichem Gruß
Werner

[mumpel]

Hallo!

Zu a:

Code: Alles auswählen

Sub PCName()
MsgBox Environ("COMPUTERNAME")
End Sub

Gruß, René

[Karolus]

Hallo
zu a.
unter Linux wäre es:

Code: Alles auswählen

msgbox environ ("HOSTNAME" )

zu c.
folgendes aus einem Modul das Dokuments gestartet:

Code: Alles auswählen

with thiscomponent.getDocumentInfo.ModifyDate
	msgbox 		.Year
	msgbox		.Month  	
	msgbox		.Day
	msgbox		.Hours 
	msgbox		.Minutes  
end with

Gruß Karo

[wega]

Hallo René, hallo Karo,

Danke für Eure antworten, hat alles funktioniert. Wunderbar.
Um die speziellen Informationen zur Datei zu bekommen muß ich sie aber auch öffnen.
Das braucht Zeit und bei einigen hundert Daten, die im Katalog gesammelt werden, einfach zu lange.
Gibt es die Möglichkeit schon beim Auffinden der Datei im Pfadverzeichnis die Dateiinfos abzugreifen?
Wäre ja schön!

mit freundlichem Gruß
Werner

[turtle47]

Hallo Werner,

Gibt es die Möglichkeit schon beim Auffinden der Datei im Pfadverzeichnis die Dateiinfos abzugreifen?

Ja, gibt es:

Code: Alles auswählen

DocFileDateTime = Split(FileDateTime("C:\DeineDatei.xxx")," ")
print DocFileDateTime(0)
print DocFileDateTime(1)
End Sub

Viel Erfolg.

Jürgen

[wega]

Hallo Jürgen,

Danke für Deine Antwort.
Es funktioniert. Das Bild rundet sich so langsam.

Danke mit freundlichem Gruß
Werner