Rien

Servus Leute, ich habe folgenden Gedankengang: - Bei Verbindung mit einem bestimmten Wlan, soll ein Script ausgeführt werden. - Das Script wollte ich in den Autostart legen. Wie kann ich den Namen des WLans per .bat auslesen und vergleichen? Gruß und Danke Rien

Ich danke euch für die Tipps. Besonderer Dank geht an SilentDemise. Festplatte stand auf AHCI...habs auf IDE umgestellt und siehe da, alles funktioniert. Ich danke dir! Und den anderen auch! Super von euch

Leider kommt der Bluescreen auch im abgesicherten Modus....oh man wie doof

Servus Leute, folgendes Szenaio: Habe auf meiner Festplatte ein Windows 7 Enterprise 64 Bit System. Ich habe jetzt ein neues Mainboard gekauft und wollte natürlich nicht neuinstallieren. Also habe ich alles ans neue Board angeschlossen und wollte booten. Nach "Windows wird gestartet" erscheint ein Bluescreen -> Also wird wohl nichts draus. Jetzt hatte ich zum Glück noch ein Windows 8 To Go und konnte damit booten. Jetzt sehe ich auch meine Windows 7 Platte und die Partitionen. Jetzt meine Frage. Kann ich über mein Windows To Go die Treiber für das Board auf meine alte Platte installieren? Sonst muss ich alles wieder zurückbauen und sichern. Und dann das System neuinstallieren. Danke im Vorraus

Ich verdiene eindeutig zu wenig...^^

Servus Leute, ich habe gerade meine Ausbildung angefangen, wie üblich im 1. Lehrjahr und meine Probezeit von 4 Monaten beendet. Jetzt meine Frage. Ist es möglich während des ersten Jahres noch ins zweite zu wechseln? Da ich durch meine schulische Ausbildung eigentlich das 1. Lehrjahr hätte direkt überspringen können. War leider zu Beginn zu "blöd" das direkt anzusprechen.

Das ist ja geil, wie der Code vereinfacht werden kann. Super, danke dir!

Gut, ich habe es hinbekommen Lösung: [COLOR="#0000FF"]Dim [/COLOR]di [COLOR="#0000FF"]As New[/COLOR] System.IO.[COLOR="#40E0D0"]DirectoryInfo[/COLOR](myargs(1)) [COLOR="#0000FF"]For Each[/COLOR] fi [COLOR="#0000FF"]As[/COLOR] System.IO.[COLOR="#40E0D0"]FileInfo [/COLOR][COLOR="#0000FF"]In[/COLOR] di.GetFiles([COLOR="#B22222"]"*.*"[/COLOR], System.IO.[COLOR="#40E0D0"]SearchOption[/COLOR].AllDirectories) counter = counter + 1 [COLOR="#0000FF"]Next[/COLOR] [COLOR="#008000"]'Gibt die Anzahl an Files aus; rein zu Prüfung[/COLOR] MsgBox(counter)

Ja, muss ich noch dazu sagen, dass ich nicht ausgegeben haben möchte wieviele Unterverzeichnisse es gibt. Ich meinte er sollte auch die Unterverzeichnisse nach Dateien absuchen. Aber danke schonmal, werd es mir mal durchlesen

Hallo Leute, ich würde gern die Anzahl von allen Dateien im Verzeichnis inkl. Unterordner auslesen. Als Basis habe ich das hier gefunden: Dim counter = My.Computer.FileSystem.GetFiles("[COLOR="#FF0000"]Das zu durchsuchende Verzeichnis[/COLOR]") MsgBox("number of files is " & CStr(counter.Count)) - Wie schaffe ich es, dass dieser Code auch die Unterordner mit einbezieht? - Ist die Variable "counter" eine Integervariable? Gruß und danke Rien

OK, Thread bitte löschen. Hab das Problem wohl gefunden Danke sehr

Habs mit der String.Compare() geamcht. Danke dir

Hallo Leute, seit dem ich mit Visual Studio 2010 arbeite und mein Programm regelmäßig compile und benutze, macht meine Explore.exe mächtig Probleme bei der Kontextmenüauswahl durch den Rechtsklick. Er stürzt wirklich jedesmal ab. Auch wenn ich die "Rechtsklicktaste" auf der Tastatur benutze. Hängt das eventuell mit meinem Code zusammen? Vielleicht könnt ihr ja mal drüber schauen und mir sagen ob der da Probleme macht. Danke Imports System.IO Public Class mainWindow 'definiert updVerz als String und weißt den Dateipfad der neuest Datei zu Public Const updVerz As String = "C:\Users\rensch\Documents\Datenaustausch\PsSchrOmp\PsSchrOmp.exe" 'deklariert args = aktueller Standort als String Public args As String() Public ofileInfo As String Public nfileInfo As String Dim upd As Boolean Public Sub mainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Mausposition ermitteln Dim positionPoint As Point = Cursor.Position 'Fenster an Mausposition setzen Me.Location = positionPoint 'Inhalt der Zwischenablage löschen Clipboard.Clear() 'Liest den aktuellen Standpunkt des Verzeichnisses ein args = Environment.GetCommandLineArgs() 'Gibt aktuellen Standpunkt in Textbox aus aktPfad.Text = "" + args(1) + "" 'Liest die aktuelle Dateiversion des lokalen Programms ein Dim ofileInfo As FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(args(0)) 'Gibt die aktuelle Dateiversion in Textbox aus aktVer.Text = "" + ofileInfo.FileVersion + "" 'Liest die Dateiversion des neuen Programms ein Dim nfileInfo As FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(updVerz) End Sub 'Prüfung ob args ein Verzeichnis ist 'gibt true oder false zurück Public Function isFolder(ByVal args As String) As Boolean Dim dI As System.IO.DirectoryInfo dI = New DirectoryInfo(args) 'Prüft ob eine Dateiendung vorhanden ist If Not dI.Extension.Length = 0 Then isFolder = False Else isFolder = True End If End Function Public Sub cmdSetzen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSetzen.Click 'Prüft ob Verzechnis true oder false ist If isFolder(args(1)) = True Then Dim Setzen As New System.Diagnostics.Process 'attrib Befehl Setzen.StartInfo.FileName = "attrib" 'Parameter für den attrib Befehl Setzen.StartInfo.Arguments = "+R """ + args(1) + """\*.* /S /D" 'Versteckt die Prozessinformationen Setzen.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 'Führt den Befehl aus Setzen.Start() MsgBox("Schreibschutz erfolgreich gesetzt", 0, "Schreibschutz") Else MsgBox("Kein Verzeichnis", 16, "ERROR") End If End Sub Public Sub cmdNehmen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNehmen.Click 'Prüft ob Verzechnis true oder false ist If isFolder(args(1)) = True Then Dim Nehmen As New System.Diagnostics.Process 'attrib Befehl Nehmen.StartInfo.FileName = "attrib" 'Parameter für den attrib Befehl Nehmen.StartInfo.Arguments = "-R """ + args(1) + """\*.* /S /D" 'Versteckt die Prozessinformationen Nehmen.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 'Führt den Befehl aus Nehmen.Start() MsgBox("Schreibschutz erfolgreich aufgehoben", 0, "Schreibschutz") Else MsgBox("Kein Verzeichnis", 16, "ERROR") End If End Sub Public Sub cmdZippen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZippen.Click 'Prüft ob Verzechnis true oder false ist If isFolder(args(1)) = True Then Dim SevenZip As New System.Diagnostics.Process 'Pfad zur 7z.exe SevenZip.StartInfo.FileName = "C:\Program Files\7-Zip\7z.exe" 'Parameter für die 7z-Konsole SevenZip.StartInfo.Arguments = "a -sfx """ + args(1) + ".exe"" """ + args(1) + "\"" -mx9" 'Versteckt die Prozessinformationen SevenZip.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 'Führt den Befehl aus SevenZip.Start() MsgBox("Verzeichnis erfolgreich komprimiert", 0, "Komprimierung") 'Kopiert .exe Pfad in Zwischenablage Clipboard.SetText(args(1) + ".exe") Else MsgBox("Kein Verzeichnis", 16, "ERROR") End If End Sub Private Sub cmdInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInfo.Click MsgBox("Die PsSchrOmp.exe Software ist eine, von René Schell geschrieben, Unterstützungssoftware, für das Packen von Auslieferungspaketen. Sie fasst die Funktionen Schreibschutz setzen, Schreibschutz nehmen und Verzeichnis komprimieren zusammen.", 65, "Information") End Sub Private Sub cmdUpd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpd.Click 'Prüfen ob Programmversionen gleich sind upd = String.Compare(nfileInfo, ofileInfo) 'Was soll getan werden wenn geprüft? If upd = True Then If MsgBox("Es gibt eine neue Version. Jetzt das Programm aktualisieren?", vbYesNo, "Information") = vbYes Then Dim update As New System.Diagnostics.Process 'xcopy Befehl update.StartInfo.FileName = "xcopy" 'Parameter für den xcopy Befehl update.StartInfo.Arguments = """" + updVerz(1) + """" + args(0) + """" 'Versteckt die Prozessinformationen 'update.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 'Führt den Befehl aus update.Start() End If Else MsgBox("Das Programm ist auf dem neuesten Stand.", 0, "Information") End If End Sub Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click 'Programm beenden Me.Close() End Sub End Class Ich danke euch im Vorraus.

Guten Morgen Männer, ich bins mal wieder^^ Könnt ihr mir sagen wie ich die 2 Dateiversione, die als String definiert sind, vergleichen kann? Zum Beispiel: String1: 8.1.0.0 String2: 8.2.0.0 Wenn String1 ungleich String2 dann mache ... sonst ... Ich hoffe der Pseudocode hat euch nicht wehgetan Danke und Gruß

Ok, hat sich vorerst erledigt.

Guten Morgen Jungs. Ich habe ein Programm in VB geschrieben. Und würde jetzt gerne die Dateiverison, dieser ausgeführten .exe in einer TextBox ausgeben. Nur fehlt mir das Wissen darüber, wie ich diese Information auslesen kann...bzw wie ich die Syntax zu schreiben habe. Kann mir einer von euch eine Gedankenstütze liefern? Ich danke euch im Vorraus

SynonymOfGod, ich danke dir für die Links nach ein bisschen Einlesen und Denken, hab ich es dann hinbekommen. Danke dir!

Wie gesagt, ich wollte das ja in Visual Studio machen^^ Ist also doch etwas komplizierter hier...ok, muss ich wohl mal ausprobieren. Danke dir

Kannst du mir vielleicht ein Beispiel dafür geben? Würde es dir hoch anrechnen, ich tue mich da immer recht schwer. Danke dir im Vorraus

Ich meinte Visual Studio. Entschuldigung...bitte in den richtigen Forumsteil verlegen. Danke Hallo Leute, ich habe die Idee mein geschriebenes Batch Programm in Visual Studio zu realisieren. Und zwar habe ich in Batch ein Programm geschrieben, welches den Schreibschutz des ausgewählten Ordners und der darunter liegende Dateien und Verzeichnisse setzt, aufheben kann und zu einer .exe Datei komprimiert. Da ich beim Batch Programm mit Übergabeparametern gearbeitet habe, wie z.B.: attrib +R [COLOR="#FF0000"]%1[/COLOR]\*.* /S /D , fällt es mir recht schwer das in VB zu übersetzen. Ausgeführt wird das Programm mit einem Rechtsklick auf das Verzeichnis -> Senden an... -> das Programm, damit wird der aktuelle Verzeichnisstandpunkt übergeben. Das gleiche in grün beim Komprimieren: C:\Program Files\7-Zip\7z.exe" a -sfx [COLOR="#FF0000"]%1[/COLOR].exe [COLOR="#FF0000"]%1[/COLOR]\ -mx9 Jetzt die Fage: Wie kann ich solche Übergabeparameter in VB realisieren? So dass, das Programm genauso funktioniert wie die Konsolenanwendung, nur das man jetzt ausschließlich Buttons für die einzelnen Funktionen drücken muss. Ich hoffe ihr könnt mir da helfen. Ich danke euch im Vorraus.

Ha, du bist mir einer^^ Ich danke dir für die Korrektur. Das ist jetzt erstmal ein Lichtblick für mich. Danke euch allen

Na das ist jetzt nicht gerade das was ich hören wollte. Mein Betrieb ist dann wohl leider in Rheinland-Pfalz... Danke sehr

Naja, auch euch beiden danke ich schonmal für die Antworten. Ich persönlich werde von der BS ziemlich runtergezogen, kann mich da auch nicht konzentrieren. Die Schule ist auch nicht ganz so hübsch^^ Sieht mehr aus wie ein "Gestapobunker" Lieber gehe ich arbeiten als das ich, schon von Anfang an der Schule, darauf warte, dass diese aus ist. Nochmal Danke

Also erstmal danke ich euch. Nun, bei Beginn meiner Ausbildung befand ich mich im 23. Lebensjahr. Gut, ich werde mich dann mal weiter erkundingen. Werde euch dann auch noch mal Bescheid geben. Danke

Guten Morgen Leute, folgende Sachlage. Ich habe letzten Monat meine Ausbildung zum FiSi angefangen. Da ich mein technisches Fachabitur mit dem Titel des Staatlich geprüften technischen Assistentent für Informatik Fachrichtung Informations- und Netzwerksystemtechnik abgeschlossen habe, kam mir zu Ohren, dass ich wohlmöglich meine Berufsschulpflicht während der Ausbildung schon erfüllt habe. Da dieser Abschluss genau in diese Richtung geht, die meine Ausbildung nimmt, könnte mein Berufsschulabschluss angerechnet werden. Entspricht das der Wahrheit, oder ist dies nur eine Sage? Ich bedanke mich im Vorraus Rien