edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Direkter Zugriff auf SMB Shares, IP Adresse zu Clipboard, ...

Browse Source
This commit is contained in:
ms
2019-08-23 11:33:48 +02:00
parent f470bce279
commit a9372916e4
9 changed files with 178 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Dokumentation/Classes/cFolder.vb
View File

@@ -22,21 +22,26 @@
End Function
Public Shared Function explorerstarten(ip As String)
Public Shared Function explorerstarten(ip As String, Optional ByVal smb As Boolean = False)
Dim Path, nwstandort, netname As String
Dim host As New Host
host.gethost(ip)
If host.Linked = True Then
host.gethost(host.LinkedWith)
End If
Class1.ip2netname(host.IPAdresse, nwstandort, netname)
If smb = False Then
host.gethost(ip)
If host.Linked = True Then
host.gethost(host.LinkedWith)
End If
Class1.ip2netname(host.IPAdresse, nwstandort, netname)
Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
If IO.Directory.Exists(Path) Then
Process.Start(Path)
If IO.Directory.Exists(Path) Then
Process.Start(Path)
Else
IO.Directory.CreateDirectory(Path)
Process.Start(Path)
End If
Else
IO.Directory.CreateDirectory(Path)
Path = "\\" & ip
Process.Start(Path)
End If
'MsgBox(path)