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

Ist es beispielsweise auch in NRW problemlos möglich, sich ab 21 von der Berufsschule abzumelden, besteht in Rheinland-Pfalz eine altersunabhängige Berufsschulpflicht.

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