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

System.IO, Zugferd

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 09:53:59 +02:00
parent 9337d563e5
commit 0db7067b42
14 changed files with 152 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -60,7 +60,7 @@ Public Class frmMessenger
EMOJI_PATH = "\\192.168.100.20\Share\Programme\CHAT_EMOJIS\"
End If
If Not IO.Directory.Exists(EMOJI_PATH) Then
If Not System.IO.Directory.Exists(EMOJI_PATH) Then
EMOJI_PATH = EMOJI_PATH_MAIN
End If
@@ -132,15 +132,15 @@ Public Class frmMessenger
FlowLayoutPanel.Controls.Clear()
If alloweasteregg Then pic.Visible = False
' If IO.Directory.Exists(My.Application.roo "") Then
' If System.IO.Directory.Exists(My.Application.roo "") Then
Dim spezialEmoji = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then spezialEmoji = True
If IO.Directory.Exists(EMOJI_PATH) Then
For Each aa In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
If System.IO.Directory.Exists(EMOJI_PATH) Then
For Each aa In System.IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
If (alloweasteregg Or Not aa.Contains("easteregg")) Then
If IO.File.Exists(aa) And aa.Contains(".png") And (aa.Contains("emoji_") Or spezialEmoji) Then
If System.IO.File.Exists(aa) And aa.Contains(".png") And (aa.Contains("emoji_") Or spezialEmoji) Then
If hiddemEmojis Or Not aa.Contains("_hidden") Then
Dim p As New PictureBox
p.Size = New Size(40, 40)
@@ -169,14 +169,14 @@ Public Class frmMessenger
' FlowLayoutPanel.Controls.Clear()
' If alloweasteregg Then pic.Visible = False
' If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
' If System.IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
' If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath)
' If Not System.IO.Directory.Exists(EmojiPath) Then System.IO.Directory.CreateDirectory(EmojiPath)
' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
' For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
' For Each a In System.IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
' If alloweasteregg Or Not a.Contains("easteregg") Then
' If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
' If System.IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
' Dim p As New PictureBox
' p.Size = New Size(40, 40)
@@ -945,7 +945,7 @@ Public Class frmMessenger
If fd.ShowDialog() = System.Windows.Forms.DialogResult.OK And fd.FileName <> "" Then
saveFileAtt(fd.FileName)
'Dim fileName = New IO.FileInfo(fd.FileName).Name
'Dim fileName = New System.IO.FileInfo(fd.FileName).Name
'Dim docId = -1
'If saveToDS(fileName, fd.FileName, docId) Then
@@ -971,7 +971,7 @@ Public Class frmMessenger
End Sub
Sub saveFileAtt(filePath, Optional reloadChat = True)
Dim fileName = New IO.FileInfo(filePath).Name
Dim fileName = New System.IO.FileInfo(filePath).Name
Dim docId = -1
If saveToDS(fileName, filePath, docId) Then
@@ -995,7 +995,7 @@ Public Class frmMessenger
End If
End Sub
Sub saveEmoji(filePath)
' Dim fileName = New IO.FileInfo(filePath).Name
' Dim fileName = New System.IO.FileInfo(filePath).Name
'Dim docId = -1
'If saveToDS(fileName, filePath, docId) Then
@@ -1170,9 +1170,9 @@ Public Class frmMessenger
Dim grabpicture As System.Drawing.Image
grabpicture = My.Computer.Clipboard.GetImage()
Dim imagePath = IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
While IO.File.Exists(imagePath)
imagePath = IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
Dim imagePath = System.IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
While System.IO.File.Exists(imagePath)
imagePath = System.IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
End While
grabpicture.Save(imagePath)
saveFileAtt(imagePath, False)
@@ -1182,7 +1182,7 @@ Public Class frmMessenger
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If IO.File.Exists(s) Then
If System.IO.File.Exists(s) Then
saveFileAtt(s, False)
added = True
End If