Сохранить перетаскиваемый (Drag & Grop) файл в директорию, с заменой имени, если существует

@ctac1412 · Регистрация: 12.02.2013

Студворк — интернет-сервис помощи студентам

Добрый день, Господа.
Появилась задача.
сохранить перетаскиваемый файл в директорию, с заменой названия файла. ( имя берем из ричбокса)
В интернете мало инфы про drag&drop в принципе.

Вот что нашел у нас на форуме, ну если честно, я даже не вижу где он здесь запрашивает путь. Вижу только формат, но почему он путь нам пишет, не понимаю.

Повторюсь с задачей. Как бы сохранить перетаскиваемый файл, с заменой имени. Сама концепция какая.
Заранее спасибо всем!

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
        Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For I As Integer = 0 To file.Length - 1
            MsgBox(file(I))
        Next
 
 
    End Sub
 
    Private Sub Form1_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
 
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
End Class

@Proidoha · 07.07.2016, 13:45

Вставьте в цикл копирование файла:

VB.NET
1
2
3
4
        For I As Integer = 0 To file.Length - 1
            System.IO.File.Copy(file(I), Path.GetDirectoryName(file(I)) & "\copy_" & Path.GetFileName(file(I)))
            MsgBox(file(I))
        Next

Что-то я не внимателен. Вместо "\copy_" & Path.GetFileName(file(I)) подставьте ваше название из ричбокса.

@ctac1412 · 07.07.2016, 14:08 **[ТС]**

Proidoha, Спасибо! Но странно. У меня на path. не высвечивается подсказок. А без них не могу (.... Мы сохраняем без формата. Как взять формат?
Я подозреваю какой нибудь Path.GetFormat(file(I)) ...но не высвечиваются у меня подсказки((

VB.NET
1
2
3
4
5
       Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For I As Integer = 0 To file.Length - 1
            System.IO.File.Copy(file(I), "Z:\_****\Не заходить\доки" & RichTextBox2.Text & ???????? )
            MsgBox(file(I))
        Next

Добавлено через 9 минут
У меня вообще пишет что path не обьявлена.

Памирыч · 07.07.2016, 14:14

ctac1412, IO.Path
Или импортируйте System.IO

@ctac1412 · 07.07.2016, 15:32 **[ТС]**

Памирыч, Proidoha, Выкладываю свое итоговое решение. Добавил, что если перетаскиваем 2 и более файла, присваем индекс к названию. Вот только это все носит локальный режим.... Например если мы сразу кинули 3 файла то получим.
1
1(1)
1(2)

А если по очереди,
то
1
1(1)
Ошибка, т.к. 1(1) уже создан. потому что переменная уже обнулилась.
Есть какие нибудь мысли, как можно решить?

П.С. Позже еще навешу проверку на названия файла... Ну что бы не было \ и других знаков. Это я к тому, что вдруг будет иметь значение при решении.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
        Try
            Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
            Dim x
            x = 1
            For I As Integer = 0 To file.Length - 1
 
                If System.IO.File.Exists("Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & IO.Path.GetExtension(file(I))) = True Then
 
                    System.IO.File.Copy(file(I), "Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & "(" & x & ")" & IO.Path.GetExtension(file(I)))
                    x = x + 1
                Else
                    System.IO.File.Copy(file(I), "Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & IO.Path.GetExtension(file(I)))
                End If
            Next
        Catch
        Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    End Sub

Памирыч · 07.07.2016, 15:44

Как я понял, надо не заменять файлы, а дописывать цифру к имени, если такой файл уже существует.
Сейчас пока нет времени, очень быстро отправляю пост с таким кодом

VB.NET
1
2
3
4
5
6
7
8
9
10
    Function NewFileName() As String
        Dim NC As String = "Ins" : Dim Fol As String = ".\Configs"
        Dim NFN As String
        For I As Integer = 0 To 999
            NFN = Fol & NC & Format(I, "000") & ".txt"
            If Not IO.File.Exists(NFN) Then
                Return NFN
            End If
        Next
    End Function

На поразмыслить

@ctac1412 · 07.07.2016, 16:14 **[ТС]**

Памирыч, Для разъяснения.
Присылают нам 5 пдф файлов, к одной заявке. То есть 5 файлов, которые оностятся к 09/06/16-64 заявке.
Значит файлы должны назваться так, что у меня и получилось, если мы их кинем всех разом.
09/06/16-64
09/06/16-64(1)
09/06/16-64(2)
09/06/16-64(3)
09/06/16-64(4)

Но что если нам эи сканы, пришлют в разное Время. Тогда загружая их по очереди, исходя из моего кода, на 2 индексе, выдаст ошибку. Потому что Переменная уже обнулилась. Найдя 09/06/16-64, он опять попытается написать 09/06/16-64(1).
Когда я писал, у меня родилась мысль и я пошел делать))

В общем вот готовый вариант. Переименовавает и пакетно, и по 1 файлу.
П.с. просто счетчик внуть подкрутил и если мы такой уже нашли, то просто выдаем следующий.

VB.NET
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
Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
        Try
            Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
            Dim x
            x = 1
            For I As Integer = 0 To file.Length - 1
                If System.IO.File.Exists("Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & IO.Path.GetExtension(file(I))) = True Then
                    If System.IO.File.Exists("Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & "(" & x & ")" & IO.Path.GetExtension(file(I))) = False Then
                        System.IO.File.Copy(file(I), "Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & "(" & x & ")" & IO.Path.GetExtension(file(I)))
                        x = x + 1
                    Else
                        Do Until System.IO.File.Exists("Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & "(" & x & ")" & IO.Path.GetExtension(file(I))) = False
                            x = x + 1
 
                        Loop
 
                        System.IO.File.Copy(file(I), "Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & "(" & x & ")" & IO.Path.GetExtension(file(I)))
                    End If
                Else
                    System.IO.File.Copy(file(I), "Z:\_Прогресс\Не заходить\доки" & RichTextBox2.Text & IO.Path.GetExtension(file(I)))
                End If
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	07.07.2016, 14:14
	ctac1412, IO.Path Или импортируйте System.IO 1

Сохранить перетаскиваемый (Drag & Grop) файл в директорию, с заменой имени, если существует

Решение