Visual Basic Dateinamen ermitteln

25/02/2010 - 23:03 von Pit1000 | Report spam
Hallo zusammen,
ich kenne mich leider nicht besonders gut mit Visual Basic aus, müßte aber
für Visio ein Makro haben, das mir

1. eine vsd-Datei in eine dxf-Datei umwandelt (kein Problem, wenn die
dxf-Datei im selben verzeichnis gespeichert werden soll)
2. die Datei in einem anderen Verzeichnis ablegen soll.

Das Problem ist die Ermittlung des Dateinamens, der allgemein gehalten
werden muß, damit das Makro für alle Dateien, die kopiert werden sollen,
funktioniert.

Kann mir jemand helfen?
Vielen Dank schon im Voraus für euere Hilfe
Peter Schlàger
 

Lesen sie die antworten

#1 eas
03/03/2010 - 12:42 | Warnen spam
Hallo! Wie du eine vsd-Datei in eine dxf-Datei umwandelst, kann ich nicht
sagen, aber den Dateinamen kannst du folgendermaßen ermitteln:

sub ermittleDateiname()
Dim fs, F, f1, fc
const pfad as string = "c:\temp"
dim dateiname as string

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(pfad)
Set fc = F.Files

For Each f1 In fc
If InStr(Len(f1.name) - 3, f1.name, "vsd") And Not f1.name =
"irgendwas.vsd" And Not CBool(InStr(1, f1.name, "~")) Then
dateiname = pfad & "\" & f1.name
'hier folgen operationen zur umwandlung..
end if
next f1

end sub


"Pit1000" wrote:

Hallo zusammen,
ich kenne mich leider nicht besonders gut mit Visual Basic aus, müßte aber
für Visio ein Makro haben, das mir

1. eine vsd-Datei in eine dxf-Datei umwandelt (kein Problem, wenn die
dxf-Datei im selben verzeichnis gespeichert werden soll)
2. die Datei in einem anderen Verzeichnis ablegen soll.

Das Problem ist die Ermittlung des Dateinamens, der allgemein gehalten
werden muß, damit das Makro für alle Dateien, die kopiert werden sollen,
funktioniert.

Kann mir jemand helfen?
Vielen Dank schon im Voraus für euere Hilfe
Peter Schlàger

Ähnliche fragen