|
VBasic : Befehl Kill
Heiko76 am 07.07.2003 um 09:04 Uhr (0)
Hi, doch. Das ist ja gerade das komische. Wenn er in den Explorer rein geht, kann er genau die Datei, wo VBA/ACAD meckert, löschen. Ohne Probleme... ------------------ cu Heiko
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 07.07.2003 um 12:39 Uhr (0)
Hi Ulf, das hab ich schonmal versucht. Da wird die scrrun.dll angemeckert. Ich habe auch ein Buch über VBA, da steht eine scrrun.dll mit ca. 400kb drin. Meine hat aber nur ca. 125kb. Hab auch schonmal im Internet gesucht, aber ich finde nichts und mit dem fso komm ich so nicht weiter. Ich finde in der Hilfe und in dem Buch auch keine richtigen Beispiele, um eine bestimmte Datei zu löschen. Was muß man da denn unter ACAD für einen "Namen für einen Filesystemobject" angeben? ------------------ cu Heiko
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Rigobert am 07.07.2003 um 13:08 Uhr (0)
Hallo Heiko, weiß nicht ob´s hilft aber ich habe eine Routine geschrieben in der alle *.dwg Files in einer FileListBox dargestellt werden. Dort kannder User dann eine auswählen und löschen. Der Code dazu : Private Sub Löschen_File_Click() On Error goto Fehlerbehandlung: If frmDatenbank.File1.FILEName = "" Then Rigo = MsgBox("Was,soll gelöscht werden ?", vbQuestion, "???") Exit Sub End If Rigo = InputBox("Datei löschen !", "Löscher", frmDatenbank.File1.FILEName, X, Y) If Not Rigo = "" Then Dummy ...
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Hobel am 09.07.2003 um 15:28 Uhr (0)
Irgendwie hast Du einen schwer nachvollziehbaren Fehler. Hast Du vielleicht eine Fehlermeldung, mit der man unter Umständen etwas anfangen könnte? Zudem würde ich noch mal die Frage von Ulf aufgreifen, ob Du für die Verteilung auf den anderen Rechnern eine *.exe erstellt hast? Wenn ich das richtig interpretiere liegt die zu löschende Datei auf dem Netz, oder? Gruß, Hobel
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 10.07.2003 um 07:28 Uhr (0)
Hi Hobel, ja die Datei liegt auf dem Netzwerk. Es kann aber eigendlich kein Software Fehler sein. Wenn ich mich an den anderen PC s anmelde, funktioniert Alles. Nur wenn sich der jeweilige User anmeldet, bricht er beim Befehl "Kill" ab. Das Programm hat also dann beim löschen anscheinend nicht die gleichen Rechte wie der User sie im Explorer hat, weil da kann er die Datei ohne weiteres löschen. Ich habe es schon versucht, den User als Hauptbenutzer und als Admin (beides Lokal) einzurichten, aber das hilft ...
|
| In das Form VBasic wechseln |
|
VBasic : pdf über VB öffnen
Erwin am 16.07.2003 um 15:11 Uhr (0)
Hi, ich hab noch einen anderen Ansatz, weil ich in meinem Fall die Datei mit der der Endung zugewiesenen Anwendung öffnen wollte, was ja recht flexibel sein kann ... und ich hab s mit VBScript gelöst, evtl. ist eine Syntaxanpassung notwendig: DIM WshShell, wmi, ergebnis, wql, prozess entspricht etwa "Start" / "Ausführen" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "cmd /K """ + FileName + """" WScript.Sleep 1000 kleine Pause, wird für den nächsten Schritt benötigt SHELL- ...
|
| In das Form VBasic wechseln |
|
VBasic : DWG in VBasic oeffnen
dim am 18.07.2003 um 15:48 Uhr (0)
Hallo, ich bin neu hier und brauche dringend Hilfe. Ich versuche im Script alle externe Referenzen aus einer DWG-Datei herauszulesen. Wenn aber die Referenzen nicht vorhanden sind, dann klappt es nicht mit dem AutoCAD.Application Objekt, es kann die Datei nicht laden. Ich habe im Internet ein Programm gesehen, das die DWG oder DXF Dateien ohne AutoCAD öffnet und die Referenzen ausliest. Es ist also möglich. Weiss vielleicht jemand Bescheid, wie das geht? Gruß, dim
|
| In das Form VBasic wechseln |
|
VBasic : MTEXT mit VBA
Heiko76 am 23.07.2003 um 16:11 Uhr (0)
Hallo zusammen, ich komme nicht mehr weiter. Ich will einen MText in eine ACAD Zeichnung eintragen. Das kriege ich auch hin, nur leider mit einer Texthöhe von "0". Das ist nicht so gut zu lesen. Hier der Code in VBA. Was habe ich vergessen oder was kann ich da tun? Dim einfuege As Variant Dim acadapp As Object Dim acaddoc As Object Dim acadutil As Object Dim Bestxt As String Dim Besbreite As Double Besbreite = 50 Bestxt = "Zusatztext: " Set acadapp = GetObject(, "AutoCAD.Application") Set acaddoc = acada ...
|
| In das Form VBasic wechseln |
|
VBasic : MTEXT mit VBA
J.Becker am 26.07.2003 um 16:43 Uhr (0)
Hallo Heiko, ich habe es mal ausprobiert. Hier die Routine: Sub main() Dim einfuege As Variant Dim Bestxt As String Dim Besbreite As Double Dim objMText As AcadMText Besbreite = 50 Bestxt = "Zusatztext: " einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt wählen") Set blockref = ThisDrawing.ModelSpace.AddMText(einfuege, Besbreite, Bestxt) ThisDrawing.Regen acAllViewports End Sub Dazu Folgendes. 1. Du brauchst nicht, wenn du im AutoCAD bist ein AutoCAD ...
|
| In das Form VBasic wechseln |
|
VBasic : filesystemobjects
Heiko76 am 22.07.2003 um 14:48 Uhr (0)
Hi @all, ich versuche mich gerade an den filesystemobjects und habe direct ein Problem. Irgendwie verschiebt er mir nicht die Datei. Das Überprüfen, ob das Verzeichnis vorhanden ist, funktioniert. Hab ich hier irgendwas vergessen oder falsch angegeben? Hier ist der Code: Private Sub CommandButton1_Click() Dim fso As New FileSystemObject Dim foldernew As String Dim folderold As String Dim n As Files foldernew = "C:
ew" folderold = "C:old" If fso.FolderExists(folderold) = True Then Set n = fso.MoveFile(" ...
|
| In das Form VBasic wechseln |
|
VBasic : filesystemobjects
Ulf_K am 22.07.2003 um 16:20 Uhr (0)
Hallo Heiko, dir fehlt der Dateiname in der Zieldefinition. Du kannst auf diese Weise deine Datei nicht nur verschieben, sondern auch umbenennen. Beispiel: If fso Is Nothing Then Set fso = New FileSystemObject fso.MoveFile "c:Neu Textdatei.txt", "c: empNeu Textdatei.txt" So funktioniert es. Grüsse Ulf
|
| In das Form VBasic wechseln |
|
VBasic : Microsoft DataLink *.udl
melzig am 16.05.2003 um 07:05 Uhr (0)
@ alle Ich bin absoluter Visual Basic Anfänger und habe erst vor kurzem damit begonnen. Das erste kleine Anfängerhandbuch habe ich durchgearbeitet. Jetzt habe ich mir einen richtig dicken Wälzer vom Verlag Markt und Technik gekauft. Hier nun meine Frage: Ich probiere gerade eine Anwendung mit ADO Datensteuerelement und dort ist beschrieben, das ich zur Verbindung mit der Datenbank *.mdb eine neue Microsoft Datenlinkdatei ( *.udl) anlegen muß. "Mit der rechten Maustaste auf eine freie Stelle im Dialogfenst ...
|
| In das Form VBasic wechseln |
|
VBasic : Microsoft DataLink *.udl
J.Becker am 26.07.2003 um 17:38 Uhr (0)
Hallo Frank, ich gehe immer einen anderen Weg um eine Verbindung zur Datenbank aufzubauen. Die UDL-Dateien haben nämlich den Nachteil, dass sie eben eine Datei sind, in der die Datenverbindung beschrieben ist. Ich benötige diese nicht. Gehe folgendermaßen vor. 1. Füge den Verweis auf Microsoft ActiveX Data Objekt 2.5 oder 2.6 ein 2. Erstelle eine Verbindung wie folgt. dim Connection as new adodb.connection dim Recordset as new adodb.recordset dim strConnString as String strConnstring = "Provide ...
|
| In das Form VBasic wechseln |
