Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.NET 2008 Express - Wartezeit u. Netzlaufwerk umbenennen

Frage Entwicklung Visual Studio

Mitglied: SamTrex

SamTrex (Level 1) - Jetzt verbinden

06.07.2008, aktualisiert 20:42 Uhr, 8982 Aufrufe, 1 Kommentar

Hallo zusammen,
ich programmiere mal wieder in VB.NET, diesmal in der 2008'er Express Version.
Dabei habe ich z.Z. 2 Probleme, mit denen ich nicht zurande komme...
1.
Ich benötige eine Wartezeit, um dem AW die Daten anzuzeigen, sonst geht das nämlich zu schnell...
Folgendes habe ich bereits probiert:
Microsoft.VisualBasic.Shell("wartezeit.vbs" & " 3000", AppWinStyle.Hide, True)
Hier bekomme ich eine Meldung, ob ich die Datei auch ausführen möchte. - Aber es klappt, die frm bleibt vollständig stehen...

Microsoft.VisualBasic.Shell("ping.exe" & " localhost -n 3 -w 1000", AppWinStyle.Hide, True)
Wartezeit klappt, aber die in der frm per timer im 0,1 Sek. Takt angepasten Labels verschwinden!

Ich habe es statt mit Microsoft. ... auch mit objSHELL probiert, kommt aufs gleiche raus!

System.Threading.Thread.Sleep(3000)
Wartezeit klappt, aber die in der frm per timer im 0,1 Sek. Takt angepasten Labels verschwinden!

Ich benötige eine Wartezeit bei der ich keine Meldung bekomme und die Labels in der frm stehen bleiben!
Oder liegt das an dem Timer?! Nur warum dann???

2.
Ich mappe verschiedene Netzlaufwerke.
Hierfür habe ich mir eine Function geschrieben, sie trennt bei bedarf das benötigte Laufwerk, mappt das neue und benennt es um.

Function mapLW(ByVal letter As String, ByVal path As String, Optional ByVal name As String = "")
Dim arrPath As Array
arrPath = Split(path, "\")
If name = "" Then name = UBound(arrPath)
If System.IO.Directory.Exists(path) = True Then
If System.IO.Directory.Exists(letter) = True Then
objNET.removenetworkdrive(letter)
End If
objNET.mapnetworkdrive(letter, path)
If System.IO.Directory.Exists(letter) = True Then
objAPP.namespace(letter).self.name = name <- FEHLER
mapLW = path & " mapped to " & letter & " as " & name
Else
mapLW = "Mapping faild!" & vbTab & path & " to " & letter & " as " & name
End If
Else
mapLW = "Server not found!"
End If
End Function

FEHLER: Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.
Diese Fehlermeldung bekomme ich IMMER!
Die Function habe ich mir aus einem meiner alten Logonscripts (VBS) entliehen und angepasst. Unter VB.NET kann ich ja auch mit objAPP (shell.application) arbeiten...
Ich verstehe nicht wo der Fehler liegen soll.
Das objAPP wird global erstellt...
Vorher benötige ich das Umbenennen bereits vorhandener Laufwerke mit exakt dem gleichen Code:

If System.IO.Directory.Exists("M:") Then
arrLWM = Split(My.Settings.MyLW_M, ";")
For Each i In arrLWM
arrSETTING = Split(i, ",")
If UCase(arrSETTING(0)) = UCase(System.Environment.UserName) Then
objAPP.namespace("M:").self.name = arrSETTING(1)
LOGit.WriteLine(" M: " & arrSETTING(1))
End If
Next
Else
LOGit.WriteLine(" L: Laufwerk nicht vorhanden!")
End If

Hier klappt alles reibungslos.

Für Hilfe und Ideen bin ich euch sehr dankbar!

Mit freundlichen Grüßen Dirk

PS: Ich denke ich gehe jetzt auch erst mal ins Bett...
Mitglied: SamTrex
06.07.2008 um 20:42 Uhr
Also,
zu 1)
Ich habe einen 2. Thread erstellt und führe das gesamte Hauptprogramm darin aus. Im Hauptthread läuft nur noch ein Timer der die Form aktualisiert.

zu 2)
Ich verstehe es ehrlich gesagt nicht:
Ich kürze 'letter' (z.B: "B:") auf "B" und speicher dies in letter2
in 'objAPP.namespace füge ich statt letter dann folgendes ein: 'letter2 & ":"'

Das ist doch exakt das gleiche wie das was ich vorher schon hatte!!! Oder nicht???
Über Aufklärung würde ich mich sehr freuen!

Danke

Mit freundlichen Grüßen Dirk




Function mapLW(ByVal letter As String, ByVal path As String, Optional ByVal name As String = "")
Dim arrPath As Array
Dim letter2 As String = Mid(letter, 1, 1)

status2 = "Verbinde Netzlaufwerk " & letter & " ..."
arrPath = Split(path, "\")
If name = "" Then name = UBound(arrPath)
If System.IO.Directory.Exists(path) = True Then
If System.IO.Directory.Exists(letter) = True Then
objNET.removenetworkdrive(letter)
End If
objNET.mapnetworkdrive(letter, path)
If System.IO.Directory.Exists(letter) = True Then
objAPP.namespace(letter2 & ":").self.name = name
mapLW = path & " mapped to " & letter & " as " & name
Else
mapLW = "Mapping faild!" & vbTab & path & " to " & letter & " as " & name
End If
Else
mapLW = "Server not found!"
End If
End Function
Bitte warten ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Visual Studio
gelöst Vb.net Pfadangabe mit Wildcards wie Stern Regex Pattern (2)

Frage von Pilger83 zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...