|
AutoCAD ARX Object : Datei unter neuem Namen speichern
Theo37 am 11.08.2010 um 16:57 Uhr (0)
Hallo,mein jetziger Stand ist: If My.Computer.FileSystem.FileExists(ThisDrawing.Path & "NEB") = False Then My.Computer.FileSystem.CreateDirectory(ThisDrawing.Path & "NEB") End If Name = "Svr1struktur".ToString & Mid(ThisDrawing.Path, 3) & dazu.ToString & ThisDrawing.Name If Left(ThisDrawing.Path, 1) "O" Then Name = ThisDrawing.Path & dazu.ToString & ThisDrawing.Name MsgBox(Name) fileReader = _ My.Computer.FileSystem.OpenTextFileWriter(ThisDrawing.Path & "NEBText ...
| In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Dateinamen ohne Pfad
Theo37 am 21.09.2010 um 14:56 Uhr (0)
Hallo an Alle,mit der folgenden Prozedur(aus der VB2008 Hilfe), komme ich recht schnell an Alle Dateinamen eines Verzeichnisses.Public Sub Dateinameneinlesen() Dim i As Integer ReDim Namen(My.Computer.FileSystem.GetFiles(ThisDrawing.Path).Count) i = 0 For Each foundFile As String In My.Computer.FileSystem.GetFiles(ThisDrawing.Path) Namen(i) = foundFile i = i + 1 Next End SubDamit bekomme ich den vollständigen Pfad der Dateien.Hat jemand ne Idee, wie ich nur die Dateinamen selbst, ...
| In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Dateinamen ohne Pfad
Theo37 am 21.09.2010 um 15:58 Uhr (0)
Danke Alfred,ich hab mich für die zweite Version entschieden und habe diese noch ein bisschen abgewandelt.: Namen(i) = My.Computer.FileSystem.GetName(foundFile)Funktioniert bestens.Gruß, Theo
| In das Form AutoCAD ARX Object wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |