1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 

 'Ανέβασμα Λογοτύπου του Προμηθευτή στην Επεξεργασία του Προμηθευτή
    Protected Sub SuppliersLogoUploadButtonEditItemTemplate_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        
        'Ορισμός μεταβλητών για το ανέβασμα του αρχείου
        
        Dim TempSuppliersLogoFileUploadEditItemTemplate As New FileUpload <--- Η δήλωση του 
        Dim TempResultLabelEditItemTemplate As New Label
        Dim ClientSideFileNameEditItemTemplate As String
        Dim ServerSideFilePathEditItemTemplate As String
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        Dim PromptUpdate As Integer
      
        'Βρίσκουμε τα control για το ανέβασμα του αρχείου
        TempSuppliersLogoFileUploadEditItemTemplate = Suppliersform.FindControl("FileUpload1") <-- Η εύρεση του control από το FormView
        TempResultLabelEditItemTemplate = Suppliersform.FindControl("SuppliersLogoUploadStatusLabelEditItemTemplate")
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        'Ορίζουμε το path του server
        ServerSideFilePathEditItemTemplate = Server.MapPath("../SuppliersLogos/")
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        'Εκίννηση διαδικασίας ανεβάσματος αρχείου 
        If TempSuppliersLogoFileUploadEditItemTemplate.HasFile Then <------Εδώ μου βγάζει το σφάλμα
        
            
            'Παίρνουμε το όνομα του αρχείου που βρίσκεται στον client
            ViewState("FileNameEditItemTemplate") = TempSuppliersLogoFileUploadEditItemTemplate.FileName
            ClientSideFileNameEditItemTemplate = TempSuppliersLogoFileUploadEditItemTemplate.FileName
           
            'Ελέγχουμε αν αυτό το αρχείο είναι εικόνα
            If CheckFileType(TempSuppliersLogoFileUploadEditItemTemplate.FileName) = True Then
                
                'Καθορίζουμε το path που θα αποθηκευτεί το αρχείο στο server + το όνομα του αρχείου
                'και παίρνουμε το path για να το αποθηκεύσουμε στη βάση
                ServerSideFilePathEditItemTemplate = ServerSideFilePathEditItemTemplate + ClientSideFileNameEditItemTemplate
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                'Ελέγχουμε αν υπάρχει ήδη το αρχείο με αυτό το όνομα
                If System.IO.File.Exists(ServerSideFilePathEditItemTemplate) Then
                                       
                    PromptUpdate = MsgBox("Είστε σίγουρος ότι θέλετε να αντικαταστήσετε το υπάρχον αρχείο με αυτό;", 1, "Επιβεβαίωση Αντικατάστασης Αρχείου")
                    If PromptUpdate = 1 Then
                        'Ανεβάζουμε όλες τις πληροφορίες στο server
                        Try
                            
                            If TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentLength > 2097152 Then
                                TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν ανέβηκε γιατί είναι μεγαλύτερο από 2 MB"
                            End If
                            TempSuppliersLogoFileUploadEditItemTemplate.SaveAs(ServerSideFilePathEditItemTemplate)
                            TempResultLabelEditItemTemplate.Text = "Το αρχείο " + TempSuppliersLogoFileUploadEditItemTemplate.FileName + " ανέβηκε επιτυχώς "

                        Catch ex As Exception
                            TempResultLabelEditItemTemplate.Text = "Η εισαγωγή απέτυχε." + ex.Message
                        End Try
                        
                    Else
                        TempResultLabelEditItemTemplate.Text = "Ακυρώσατε την αντικατάσταση του αρχείου"
                    End If
                Else
                    'Ανεβάζουμε όλες τις πληροφορίες στο server
                    Try
                            
                        If TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentLength > 2097152 Then
                            TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν ανέβηκε γιατί είναι μεγαλύτερο από 2 MB"
                        End If
                        TempSuppliersLogoFileUploadEditItemTemplate.SaveAs(ServerSideFilePathEditItemTemplate)
                        TempResultLabelEditItemTemplate.Text = "Το αρχείο " + TempSuppliersLogoFileUploadEditItemTemplate.FileName + " ανέβηκε επιτυχώς "

                    Catch ex As Exception
                        TempResultLabelEditItemTemplate.Text = "Η εισαγωγή απέτυχε." + ex.Message
                    End Try

                    
                End If
            Else
                
                TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν είναι εικόνα, δεν ανέβηκε στο server, γιατί είναι τύπου " + TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentType
            End If
           
           
        Else
            TempResultLabelEditItemTemplate.Text = "Δεν μπορείτε να ανεβάσετε στο server αυτήν την εισαγωγή, γιατί δεν είναι διαδρομή αρχείου"
                
        End If
    End Sub
    ''''''''Τέλος Ανεβάσματος Λογοτύπου του Προμηθευτή στην Επεξεργασία του Προμηθευτή '''''''''''''''''''''