Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
91 / 46 / 2
Регистрация: 02.11.2010
Сообщений: 261
1

Создание файлов в папке без замены имеющихся путем замены цифр в их имени по порядку

24.08.2011, 00:57. Показов 1264. Ответов 1
Метки нет (Все метки)

Всем доброго времени суток! Надо при нажатии кнопку создавать файл "Ins001.txt" в директории "Configs\", а если такой файл уже есть, то создать файл "Ins002.txt" и так далее. Через If будет много мороки. Можно ли по другому?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.08.2011, 00:57
Ответы с готовыми решениями:

Копирование файлов с FTP-сервера на компьютеры клиентов без замены уже имеющихся файлов
Приветствую. Такая задача. имеется фтп сервер. на нем лежит 5 папок, в каждой паке каждый день...

Заданные замены символов в именах файлов в определённой папке
Как автоматом заменить пробелы (а заодно и запятые (",")) в именах файлов в папке на, скажем,...

Скопировать определённую папку с подверждением замены файлов в папке назначения
Нужно скопировать папку целиком foldername с подверждением замены файлов Папка находиться рядом...

Из двух чисел получить новое путём замены чётных цифр первого числа на наибольшую цифру второго числа
Условие: Разработать программу для реализации указанного действия над целыми числами без знака...

1
Почетный модератор
21307 / 9041 / 1081
Регистрация: 11.04.2010
Сообщений: 11,015
24.08.2011, 03:01 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Devel Посмотреть сообщение
Через If будет много мороки
смотря как использовать. Вот функция
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
Я ее сделал без параметров, подточена конкретно для твоего примера.
Если из папки будет удален како-либо файл, например, Ins042.txt, учти, что он будет создан заново, даже если после него уже создавались файлы.
При создании файлов свыше тысячи ты получишь исключение. Все сделано по минимуму.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.08.2011, 03:01

Копирование всех файлов из директории в нужную папку без замены
Подскажите. Нужно скопировать из одной папки в другую все файлы, но все это проходит с заменой, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.