Visual Basic Forum

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

ich hänge hier schon 2 monate ohne ergebnis . Mad

hier der zuständige code : Public Sub Upload() Dim pfad As String Dim datei As String Dim dateiname As String Dim open As String Dim requestStream As Stream = Nothing Dim fileStream As FileStream = Nothing Dim uploadResponse As FtpWebResponse = Nothing Anzeigebereich.Text = An ...

Verfasst am: 02.02.2012, 10:41 Aufrufe: 364

Ist ja auch ok. Müssen halt alle Programme neu kompiliert werden, die das haben. Leider "passiert" es mir manchmal, dass ich danach unter Komponenten mein OCX zweimal angezeigt bekomme. Pfad und Dateiname sind identisch. Mit regsvr32.exe /u OCX bekomme ich zwar einen Eintrag weg, aber der zweite (alte wahrscheinlich) nicht. Habe schon versucht, mit RegCleaner und TuneUp Utilities 2008 meine Registr ...

Verfasst am: 26.01.2012, 17:21 Aufrufe: 203

Um eine ZipDatei zu erstellen benutzer folgende Code: Sub main dim fso as new filesystemobject dim datei set datei = fso.createtextfile("C:\dateiname.zip") end sub dann wird diese Zipdatei benutzt um weiter zu arbeiten. gehe ich irgendwelche Gefahr ein? Danke für Ihre Vorschläge Very Happy

Verfasst am: 11.08.2011, 06:45 Aufrufe: 541

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 08:34 Aufrufe: 541

Die Dateien haben dann exakt den gleichen Inhalt und trotzdem geht die ursprüngliche Datei nicht und DXF-Dateien sind doch nur Text-Dateien .... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfan ...

Verfasst am: 24.05.2011, 07:23 Aufrufe: 651

FileNotFoundException: Die Datei oder Assembly "Microsoft.VisualBasic.PowerPacks.Vs, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden. Dateiname: "Microsoft.VisualBasic.PowerPacks.Vs, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" bei Nik_Funny_Les ...

Verfasst am: 29.11.2010, 10:04 Aufrufe: 610

vielleicht steht der dateiname im quelltext der seite.. dann kannst den dort auslesen und verwenden lg

Verfasst am: 28.11.2010, 19:13 Aufrufe: 610

Hallo Leute, habe mir mal mit VB Script angeschaut um per Script eine Datei aus dem Internet zu laden und abzuspeichern. Habe dazu auch schon ein Script im Netz gefunden aber leider erkennt der nicht den Dateinamen des Files. Wäre es möglich das so umzuschreiben das er mir die im Browser angebotenen Dateiname nimmt und die Datei dann speichert? Anbei das Script: HTTPDownload "http://webseite.com/GetElemen ...

Verfasst am: 21.04.2010, 10:13 Aufrufe: 965

Open dateiname For Input As #1 Do While Not EOF(1) Line Input #1, gesamtstring pos = 1 x = InStr(pos, gesamtstring, "@", vbBinaryCompare) test = Mid(gesamtstring, pos, x - pos) If test = Suchkriterium Then test = Suchkriterium & "@" & "123" gesamtstring = test End If Loop Close #1 es wird hier d ...

Verfasst am: 02.03.2010, 15:21 Aufrufe: 642

Hallo zusammen, habe ein Problem mit der Zwischenablage. Ich kopiere ein Bild aus einer Datei in die Zwischenablage ( Clipboard.SetData LoadPicture("Dateiname") ) Das funktioniert auch soweit ganz gut, ich kann auch das Bild in anderen Programme (z.b. Word) einfügen. Nur ist mein Problem, dass die Dimensionen des Bildes nicht mehr stimmen. Das Bild ist proportional viel zu groß als das Originalbil ...

Verfasst am: 10.01.2010, 17:17 Aufrufe: 1071

Hallo, im Zuge eines Projektes meins Vaters wollte ich ihm zur Hand gehen und habe folgendes Problem/Ausgangssituation. Es gibt eine Spalte in Excel in der jeweils unterschiedlich viele Bild-Dateinamen (immer gleiche länge) in einer Zeile aufgeführt sind (durch Zeilenumbruch getrennt). Jeder dieser Dateinamen soll nun zu einem Hyperlink konvertiert werden und z.b. auf /fotos/DATEINAME verlinken. Wäre es jeweils ...

Verfasst am: 22.12.2009, 14:00 Aufrufe: 575

Verzeichnis umbenennen. VB6 Wäre schön wenn mir jemand helfen könnte. Fehlermeldung: Pfad und Datei nicht gefunden. Irgend etwas habe ich nicht verstanden. Gruß Manfred Option Explicit Dim DateiName As String Private Sub Laufwerk1_Change() Verzeichnis1.Path = Laufwerk1.Drive End Sub Private Sub Verzeichnis1_Change() Datei1.Path = Verzeichnis1.Path Bezeichnung1.Caption = Verzeichnis1.Path ...

Verfasst am: 14.12.2009, 22:49 Aufrufe: 538

IO.FileNotFoundException: Die Datei oder Assembly "MySql.Data, Version=5.0.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden. Dateiname: "MySql.Data, Version=5.0.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d" bei UNDERCOM.Login.readmdsalt() bei UNDERCOM.Login.

Verfasst am: 28.09.2009, 17:44 Aufrufe: 599

Verfasst am: 26.09.2009, 08:43 Aufrufe: 912

Verfasst am: 25.06.2009, 09:16 Aufrufe: 381

EventArgs) Handles Timer1.Tick ProgressBar1.Value += 1 If ProgressBar1.Value = 10 Then My.Computer.FileSystem.WriteAllText("C:\dateiname.txt", TextBox1.Text, True) End If End sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub End Class edoch wird mir( w ...

Verfasst am: 18.06.2009, 11:56 Aufrufe: 2665

Verfasst am: 03.05.2009, 12:32 Aufrufe: 820

Verfasst am: 13.04.2009, 15:27 Aufrufe: 751

Verfasst am: 30.03.2009, 10:55 Aufrufe: 2006

mit right() if right(dateiname,3) = "pdf" then ...

Verfasst am: 11.10.2008, 10:18 Aufrufe: 792

Hallo, hab da ein Problem bei dem Treeview Control. Und zwar möchte ich Dateien bzw. die Dateinamen in einer Treeview als Child anzeigen lassen. Aber, ich habe schon festgelegte Parent Nodes und ich möchte halt die Dateinamen als 2.Childebene hinzufügen. Mal so eine kleine Skizze von der Treeview Parent1 ---Child1 ------Hier der Dateiname ---Child2 Parent2 Parent3 Also die Parent Nodes und die Childs ...

Verfasst am: 26.09.2008, 19:58 Aufrufe: 1213

Ja, ich hatte vor 6 Monaten noch VB programmiert. Aber hab alles wieder vergessen... Ich brauch das unbedingt für eine Datei...Ich glaub da war irgendwas mitOpen Dateiname for Input as #1usw...Das mit dem SourceCode könnte mir helfen... =)Edit:Ein Problem ist auch noch, dass die Zeichen unterschiedlich sind.001asdasdasd002 Hallo Guten Tag001asdahhhsd002 Hallo Guten Tag001asdasdasd002 Hallo Guten Tag0015asasdasd002 Ha ...

Verfasst am: 27.07.2008, 20:52 Aufrufe: 633

Hallo.Ich würde gerne eine Text Datei über einen Button (festgelegter Dateiname)in eine Andere Form laden und dann in einem Label darstellen, nur die Frage ist wie.Kann mir jemand helfen?also z.B.Ich habe die Form frm_auswahl und drücke jetzt auf den button cmd_ausgabe, dann sollte in der Form frm_ausgabe, im label lbl_ausgabe der text stehen der in der Text Datei Hallo.txt steht.PS: Ich hab erst vor paar Tagen mit v ...

Verfasst am: 27.07.2008, 20:45 Aufrufe: 866

Verfasst am: 30.06.2008, 18:55 Aufrufe: 5923

Verfasst am: 26.06.2008, 16:03 Aufrufe: 751

Verfasst am: 26.06.2008, 15:44 Aufrufe: 751

Verfasst am: 16.06.2008, 01:11 Aufrufe: 814

Frage:Wie kann ich gezielt Prozesse deren Namen ich kenne beenden?2.Wie kann ich den Namen sprich die .exe Datei meines eigenen Programmes welches gerade ausgeführt wird herausfinden - also um es nochmal zu verdeutlichen: Die finde ich den Dateiname meines eigenen Programmes heraus? (Während der Laufzeit!)3.Wie kann ich meine .exe wirklich als Prozess verstecken, dieses wird benötigt um sicher zu gehen das ein Securi ...

Verfasst am: 07.06.2008, 19:39 Aufrufe: 441

moinkönnt ihr mir sagen wie ich im common dialog den voreingestellten dateinamen verändern kann?er zeigt mir ja immer das zuletzt ausgewählte an, was aber für mein programmm sinnlos ist.mfgboehser enkel

Verfasst am: 07.06.2008, 16:49 Aufrufe: 1475

Verfasst am: 07.06.2008, 16:14 Aufrufe: 1475

Verfasst am: 03.06.2008, 20:48 Aufrufe: 341

also erklär jetzt mal...worum gehts?was ist gegeben? nur der dateiname? oder sonst noch was?

Verfasst am: 29.05.2008, 15:39 Aufrufe: 675

also die Fehlermeldung weist schon darauf hin, dass die Datei nicht vorhanden sein könnte. Hab' schon wieder kein vb in der Nähe ... aber schau Dir doch einfach mal an, ob der richtige Pfad und Dateiname ausgegeben wird, wenn Du beides, so wie Du es im Projekt verwendest, via MsgBox ausgeben lässt.Ich baue das heute Abend mal um und poste es morgen. Wenn Du vorher schon den fehler findest, haste Glück :)Gruß,Patrick

Verfasst am: 23.05.2008, 16:28 Aufrufe: 246

dateiname = replace(dateiname, "/", " ")<br />dateiname = replace(dateiname, "", " ")<br />dateiname = replace(dateiname, ".", " ")

Verfasst am: 23.05.2008, 16:23 Aufrufe: 246

Hi,ich möchte einen String namens "DateiName" nach einem "/", "" und einem "." durchsuchen und durch ein Leerzeichen ersetzen.Habe jedoch noch nichts passendes gefunden.

Verfasst am: 13.05.2008, 01:36 Aufrufe: 1863

Um den Text zu speichern schreiben wir folgenden CodeVisual Basic: .Write(Textbox.Text) schreiben wir unseren Inhalt der Textbox in den Stream und damit in unsere Datei. Die gespeicherte Datei befindet sich dann in dem Ordner, in dem sich auch unser Programm befindet. Um das zu ändern, kann man anstatt nur dem Dateinamen auch einen Pfad angeben (z.B Dim outputstream As New IO.StreamWriter("C:test.txt")), dann würde d ...

Verfasst am: 11.05.2008, 15:07 Aufrufe: 1703

Verfasst am: 01.05.2008, 15:08 Aufrufe: 3186

Beschreibung:Eine Liste aller laufender Prozesse lässt sich wie folgt ermitteln und bspw. in einem ListView anzeigen.Platzieren Sie auf die Form ein ListView-Control und einen CommandButton (Button1) und fügen folgenden Code in den Codeteil der Form ein:Funktion:Visual Basic: Erweiterung:Visual Basic: Quelle: vbarchiv.net

Verfasst am: 06.04.2008, 17:51 Aufrufe: 182

Wenn du die Variable als Byte deklarierst, brauchst du diese Zeile nicht: Datei = Space(LOF(1)) So dürfte alles wunderbar funktionieren: Dim Datei As String Open Dateiname For Binary As #1 Datei = Space(LOF(1)) Get #1, , Datei Close #1 Open Stub For Binary #2 Put #2, , Datei Close #2

Verfasst am: 06.04.2008, 17:39 Aufrufe: 182

Der Code funktioniert zwar aber am ende von der datei werden so viele leerzeichen erstellt wie die datei lang ist. Dim Datei() as byte Open Dateiname For Binary As #1 Datei = Space(LOF(1)) Get #1, , Datei Close #1 Open Stub For Binary #2 Put #2, , Datei Close #2

Verfasst am: 21.03.2008, 17:36 Aufrufe: 2703

Verfasst am: 21.03.2008, 17:04 Aufrufe: 2703

Normal ist das ein Paket zum installieren. Aber es sollte auch ohne Probs gehen wenn du die Datei in den system32 Ordner kopierst und dann in CMD die Datei per "regsvr32 dateiname" registrierst.

Verfasst am: 16.03.2008, 00:08 Aufrufe: 345

Verfasst am: 05.03.2008, 20:09 Aufrufe: 446

1. So: Dateiname = "/datei" & Date & "-" & Time & ".txt" 2. Das ICQ 5.1 Passwort ist unter diesem Pfad gespeichert. Für ICQ 6 schaust du dir das hier mal an List1.Additem Text1.Text

Verfasst am: 20.02.2008, 14:23 Aufrufe: 672

... r i = 1 To Anzahl For j = 1 To Blockanzahl For k = 1 To Blockgröße Zahl = Zahl & Int(Rnd * 9) + 1 Next k If j <> Blockanzahl Then Zahl = Zahl & Trennzeichen Next j Print #1, Zahl Zahl = Null Next i Close #1 End End Function Benutzt wird das ganze mit: GenerateNumber Dateiname ...

Verfasst am: 10.01.2008, 17:17 Aufrufe: 1143

Dann sollte eine Input Box aufgehen die Fragt wie die Datei auf dem FTP Server heißen soll, da kann irgendwas eingegeben werden (z. Bsp 1.tmp). Als nächstes muss der Dateiname auf dem Ziel Computer eingegeben werden. Es ist wichtig das die Datei noch nicht Existiert, Dateien werden nicht überschrieben. Das Überschreiben des Programms muss ein Installer erledigen der nachher gestartet wird. Die Checksumme wird auch au ...

Verfasst am: 09.01.2008, 14:15 Aufrufe: 298

Verfasst am: 05.12.2007, 19:13 Aufrufe: 987

Das "x" steht hierbei für die Nachrichtennummer (siehe LIST - Function MailGetListe). Wie bereits eingangs erwähnt soll die Nachricht selbst in eine temporäre Datei gespeichert werden. Den Dateinamen bilden wir aus dem Tagesdatum und der aktuellen Uhrzeit, so dass nicht aus Versehen eine bereits existierende Datei überschrieben wird. Der Dateiname wird dann von der Funktion als Rückgabewert zurückgegeben. ...

Verfasst am: 04.12.2007, 15:20 Aufrufe: 482

Verfasst am: 03.12.2007, 10:00 Aufrufe: 746