Seite 1 von 1

[gelöst] spezielle Informationen auslesen

Verfasst: Fr, 17.09.2010 22:15
von 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

Re: spezielle Informationen auslesen

Verfasst: Sa, 18.09.2010 09:58
von mumpel
Hallo!

Zu a:

Code: Alles auswählen

Sub PCName()
MsgBox Environ("COMPUTERNAME")
End Sub
Gruß, René

Re: spezielle Informationen auslesen

Verfasst: Sa, 18.09.2010 10:12
von 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

Re: spezielle Informationen auslesen

Verfasst: Sa, 18.09.2010 13:57
von 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

Re: spezielle Informationen auslesen

Verfasst: Sa, 18.09.2010 14:32
von turtle47
Hallo Werner,
wega hat geschrieben: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

Re: spezielle Informationen auslesen

Verfasst: Sa, 18.09.2010 14:55
von wega
Hallo Jürgen,

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

Danke mit freundlichem Gruß
Werner