| 

.NET C# Java Javascript Exception

1
habe eine Frage zu den Rechten einer Applikation...

app.manifest:
---------------------------------
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />

Das komische ist ich kann diese nicht ändern ohne Fehlermeldung...
Bei mir steht asInvoker drin...

Problem ist Form 2

Hier funktioniert das Kopierern nicht....

Code-Form2:
-------------------------------
Public Class Form2
'Private ReadOnly txtdbname As Object
'Public Property txtdbname As Object
'Public As dbname String
Public Property dbname As Object 'Root "emc" dbname übergeben ... 18.07.2019 TM
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'#### Hier den dbname über XML auslesen und übergeben an CurItem2

Dim dbdocname As New System.Xml.XmlDocument()


dbdocname.Load(Application.StartupPath & ".\XMLSQL.xml")
'If dbdocname.GetElementsByTagName("Benutzer")(0) IsNot Nothing Then
'Label1.Text = dbdocname.GetElementsByTagName("Benutzer")(0).InnerText
'If dbdocname.GetElementsByTagName("Passwort")(0) IsNot Nothing Then
'Label2.Text = dbdocname.GetElementsByTagName("Passwort")(0).InnerText
If dbdocname.GetElementsByTagName("Root")(0) IsNot Nothing Then
Label3.Text = dbdocname.GetElementsByTagName("Root")(0).InnerText
dbname = dbdocname.GetElementsByTagName("Root")(0).InnerText
End If
' End If
' End If

End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' ListBox clear
ListBox1.Items.Clear()
' ListBox and Openfile fill...
Dim browseFiles As New OpenFileDialog
browseFiles.Title = "Select files to copy"
browseFiles.Filter = "All Files (*.*)|*.*"
'alle multiselection in the open file dialog
browseFiles.Multiselect = True

Dim result As DialogResult = browseFiles.ShowDialog()

If Not result = DialogResult.Cancel Then
'here its file name(s) with s to return array of file names
Dim names() As String = browseFiles.FileNames
For Each name As String In names
Dim fileName As String = System.IO.Path.GetFileName(name)
ListBox1.Items.Add(fileName) 'CheckedListBox1.Items.Add(fileName)
Next
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Application.Exit() ' Muss noch ersetzt werden close???
Close()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

'######################### getestet 16.06.2019 TM OK Fehlerbehandlung NOT OK
Dim FileToCopy As String
Dim NewCopy As String
Dim fullPath As String
Dim fullPath2 As String
Dim curItem = ListBox1.SelectedItem '.ToString() '#### Wenn nicht markiert bzw. selected dann Fehlermeldung ausgeben 16.06.2019 TM ### HIER ist ein Problem...



' 1. Fehlerbehandlung 16.06.2019 OK
If ListBox1.SelectedIndex = -1 Then 'ListBox1.Items.Count = 0 Then
MessageBox.Show(Me, "Markiere oder Füge erst ein SQL File hinzu!", "Bedienungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If


Dim CurItem2 = dbname ' "emc" Kann jetzt übergeben Public Variable dbname 16.07.2019 TM
Dim xFilesTransferred As Integer = 0

' --> am besten immer hier ablegen die Backups --> C:\Users\Public\Downloads\SQL BAK <-- wegen Read/write rights
fullPath = My.Computer.FileSystem.CombinePath("C:\Users\Anwender\Downloads\SQL BAK\", curItem)
fullPath2 = My.Computer.FileSystem.CombinePath("C:\Users\Anwender\Downloads\SQL BAK\", CurItem2)

FileToCopy = fullPath ' "C:\Users\Owner\Documents\test.txt"
NewCopy = fullPath2 ' "C:\Users\Owner\Documents\NewTest.txt"

Dim xFilesCount(NewCopy.Length) ' Length 39 !!! aber wird nicht in xFilesCount übergeben ???

If IO.File.Exists(fullPath2) = True Then
MessageBox.Show("File Vorhanden - Abgebrochen", "Kopiervorgang:")
ElseIf IO.File.Exists(FileToCopy) = True Then
MessageBox.Show("File wird Kopiert.", "Kopiervorgang:")
'System.IO.File.Copy(FileToCopy, NewCopy) 'NewCopy
IO.File.Copy(FileToCopy, NewCopy) 'NewCopy
ProgressBar1.Value = ProgressBar1.Maximum = FileToCopy.Length
ProgressBar1.Value = ProgressBar1.Maximum
MessageBox.Show("File Kopiert", "Kopiervorgang:")
ProgressBar1.Value = 0
ProgressBar1.Refresh()

End If
End Sub


End Class
----------------------------------------------

Gruss TM
News:
19.07.2019
tsmeier 51 1 3
2 Antworten
0
So habe mal das Copy Programm extern erstellt... Einzelanwendung...

Wenn ich das auf einem Fremdrechner das installiere geht das kopieren nicht? NET 5.2.x W10

Wer kann mir sagen wo das Problem liegt? Danke

CODE Downloadbar:
---------------------------
share.erowa.com/files/201972497310543/erowa.zip

CODE VB:
--------------------
Public Class Form1

Public Property dbname As Object 'Root "emc" dbname übergeben ... 18.07.2019 TM
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'#### Hier den dbname über XML auslesen und übergeben an CurItem2

Dim dbdocname As New System.Xml.XmlDocument()


dbdocname.Load(Application.StartupPath & ".\XMLSQL.xml")
'If dbdocname.GetElementsByTagName("Benutzer")(0) IsNot Nothing Then
'Label1.Text = dbdocname.GetElementsByTagName("Benutzer")(0).InnerText
'If dbdocname.GetElementsByTagName("Passwort")(0) IsNot Nothing Then
'Label2.Text = dbdocname.GetElementsByTagName("Passwort")(0).InnerText
If dbdocname.GetElementsByTagName("Root")(0) IsNot Nothing Then
Label3.Text = dbdocname.GetElementsByTagName("Root")(0).InnerText
dbname = dbdocname.GetElementsByTagName("Root")(0).InnerText
End If
' End If
' End If
End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' ListBox clear
ListBox1.Items.Clear()
' ListBox and Openfile fill...
Dim browseFiles As New OpenFileDialog
browseFiles.Title = "Select files to copy"
browseFiles.Filter = "All Files (*.*)|*.*"
'alle multiselection in the open file dialog
browseFiles.Multiselect = False

Dim result As DialogResult = browseFiles.ShowDialog()

If Not result = DialogResult.Cancel Then
'here its file name(s) with s to return array of file names
Dim names() As String = browseFiles.FileNames
For Each name As String In names
Dim fileName As String = IO.Path.GetFileName(name)
ListBox1.Items.Add(fileName) 'CheckedListBox1.Items.Add(fileName)
Next
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Application.Exit() ' Muss noch ersetzt werden close???
Close()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'######################### getestet 16.06.2019 TM OK Fehlerbehandlung NOT OK
Dim FileToCopy As String
Dim NewCopy As String
Dim fullPath As String
Dim fullPath2 As String
Dim curItem = ListBox1.SelectedItem '.ToString() '#### Wenn nicht markiert bzw. selected dann Fehlermeldung ausgeben 16.06.2019 TM ### HIER ist ein Problem...



' 1. Fehlerbehandlung 16.06.2019 OK
If ListBox1.SelectedIndex = -1 Then 'ListBox1.Items.Count = 0 Then
MessageBox.Show(Me, "Markiere oder Füge erst ein SQL File hinzu!", "Bedienungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If


Dim CurItem2 = dbname ' "emc" Kann jetzt übergeben Public Variable dbname 16.07.2019 TM
Dim xFilesTransferred As Integer = 0

' --> am besten immer hier ablegen die Backups --> C:\Users\Public\Downloads\SQL BAK <-- wegen Read/write rights
fullPath = My.Computer.FileSystem.CombinePath("C:\Users\Anwender\Downloads\SQL BAK\", curItem)
fullPath2 = My.Computer.FileSystem.CombinePath("C:\Users\Anwender\Downloads\SQL BAK\", CurItem2)

FileToCopy = fullPath ' "C:\Users\Owner\Documents\test.txt"
NewCopy = fullPath2 ' "C:\Users\Owner\Documents\NewTest.txt"

Dim xFilesCount(NewCopy.Length) ' Length 39 !!! aber wird nicht in xFilesCount übergeben ???

If IO.File.Exists(fullPath2) = True Then
MessageBox.Show("File Vorhanden - Abgebrochen", "Kopiervorgang:")
ElseIf IO.File.Exists(FileToCopy) = True Then
MessageBox.Show("File wird Kopiert.", "Kopiervorgang:")
'System.IO.File.Copy(FileToCopy, NewCopy) 'NewCopy
IO.File.Copy(FileToCopy, NewCopy) 'NewCopy
ProgressBar1.Value = ProgressBar1.Maximum = FileToCopy.Length
ProgressBar1.Value = ProgressBar1.Maximum
MessageBox.Show("File Kopiert", "Kopiervorgang:")
ProgressBar1.Value = 0
ProgressBar1.Refresh()

End If
End Sub

Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click

End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub

Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click

End Sub


End Class


------------------------
CODE XML
------------------------

<?xml version="1.0" encoding="utf-8" ?>
<User_Table>
<Benutzer>sa</Benutzer>
<Passwort>12345678</Passwort>
<Root>emc</Root>
</User_Table>


Gruss TM
24.07.2019
tsmeier 51 1 3
0
So habe da was Übersehen in meinem Code... Pfad Hardcoded ... mist da kommt auch von windows Framework auch keine Fehlermeldung...

C:\Users\Anwender\Downloads\SQL BAK\" Den Ordner muss ich derzeit noch per Hand anlegen...

C:\SQL BAK\" dann funktioniert auch das kopieren...

Gruss TM
28.07.2019
tsmeier 51 1 3

Stelle deine App.manifest-Frage jetzt!