If My.Computer.FileSystem.DirectoryExists(PercorsoDocumenti) = False Then
                My.Computer.FileSystem.CreateDirectory(PercorsoDocumenti)
            End If

            If My.Computer.FileSystem.DirectoryExists(PercorsoOrdini) = False Then
                My.Computer.FileSystem.CreateDirectory(PercorsoOrdini)
            End If

            '+++ creazione della sottodirectory per l'ordine che deve sempre esistere per poter consultare i files presenti +++
            If My.Computer.FileSystem.DirectoryExists(PercorsoOrdini & lblIdOrdinePassato.Text) = False Then
                My.Computer.FileSystem.CreateDirectory(PercorsoOrdini & lblIdOrdinePassato.Text)
            End If

            LstViewDocumentiCaricati.Clear()
            For Each fileName As String In IO.Directory.GetFiles(PercorsoOrdini & lblIdOrdinePassato.Text)
                ImgLstFiles.Images.Add(Icon.ExtractAssociatedIcon(fileName))
                LstViewDocumentiCaricati.Items.Add(IO.Path.GetFileName(fileName), ImgLstFiles.Images.Count - 1)
            Next