Visual studio code почему не переименовывается файл?
Жму переименовать, тупо пропадает файл, который переименовываю
потом выдает ошибку
- Вопрос задан более двух лет назад
- 545 просмотров
как сделать чтобы при создании файла в вс код автоматически предлагалось какое расширение у файла
Подскажите, при создании файла в вс код автоматически предлагал выбрать какое расширение у файла, сдуру нажал случайно не показывать это, теперь не могу найти как включить. Подскажите, где, что нужно включить?
Отслеживать
задан 17 фев 2022 в 8:41
1 1 1 бронзовый знак
Добро пожваловать! Добавьте больше информации, каким образом вы создаете файл. Просто вариантов некоторое количество и сейчас не понятно, что вы имеете в виду
17 фев 2022 в 9:09
Файл-> Новый файл. после этого в рабочей области открывался новый файл и появлялось списком поле ассоциации типа файла, ну js, css и т.д. А сбоку от этого списка там было что-то типа не показывать, я нажал, и теперь не могу выбрать сразу расширение для файла и не могу в этой же строке переименовать файл
17 фев 2022 в 9:27
добро пожаловать на stack overflow на русском! чтобы дополнить вопрос, нажмите править ниже текста вопроса.
Переименование папки решения
Если я переменную папку какого то решения через обычный проводник, то будет ли в VS он нормально открываться? И все ли будет нормально с ссылками между проектами в решении?
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Переименование решения
Можно ли прямо из VS 2017 переименовать решение?
Переименование папки
Доброго времени. Существует ли возможность с помощью команд cmd переименовать папку вида.
Переименование папки
Подскажите пожалуйста, как переименовать папку Олег в Oleg?
Переименование папки из Access
Подскажите как можно переименовать папку из Access
Как программно переименовать файл, убрав 5 последних символов
Как программно переименовать таблицу MSAccess
Как программно с помощью ADO переименовать таблицу MSAccess? :help:
Как программно переименовать процедуру в MDB базе
Как программно переименовать процедуру в MDB базе ?
Как программно переименовать процедуру в MDB базе
Как программно переименовать процедуру в MDB базе ?
Открыть текстовый файл и удалить 11 последних символов на каждой строке
Помогите пожалуйста. Нужно открыть текстовый файл и удалить 11 последних символов на каждой строке.
Регистрация: 25.01.2015
Сообщений: 48
1 2 3 4 5 6 7 8 9 10 11
Dim yourFile As String = "c:\ren\something.txt" Dim f As New System.IO.FileInfo(yourFile) yourFile = Microsoft.VisualBasic.Left(f.Name, f.Name.Length - 9) 'расширение точка и 5 символов=9 yourFile = yourFile & Microsoft.VisualBasic.Right(f.Name, 4) 'и потом f.CopyTo(f.DirectoryName & "\" & yourFile) f.Delete() 'или лучше Microsoft.VisualBasic.Rename(f.FullName, f.DirectoryName & "\" & yourFile) 'а можно и так My.Computer.FileSystem.RenameFile(f.FullName, f.DirectoryName & "\" & yourFile)
Регистрация: 09.10.2013
Сообщений: 613
Иван Чолев, а если имя файла меняется изо дня в день, но имеет один и тот же формат?
н.р. сегодня из стороннего приложения выгрузился такой файл: 14022015_2321.txt, а завтра выгрузиться 22022015_2326.txt
Регистрация: 25.01.2015
Сообщений: 48
adb420,
получишь сегодня 14022015.txt а завтра 22022015.txt
если длина файла постоянна можно вместо:
yourFile = Microsoft.VisualBasic.Left(f.Name, f.Name.Length - 9) 'расширение точка и 5 символов=9
yourFile = Microsoft.VisualBasic.Left(f.Name, 8)
Почетный модератор
21388 / 9122 / 1083
Регистрация: 11.04.2010
Сообщений: 11,014
Сообщение было отмечено adb420 как решение
Решение
1 2 3 4
Dim F() As String = IO.Directory.GetFiles("C:\ren") For Each _F As String In F My.Computer.FileSystem.RenameFile(_F, IO.Path.GetFileNameWithoutExtension(_F).Substring(0, 5) & IO.Path.GetExtension(_F)) Next
Добавлено через 4 минуты
Неправильно.
Так:
1 2 3 4 5 6
Dim F() As String = IO.Directory.GetFiles("C:\ren") Dim Tmp As String For Each _F As String In F Tmp = IO.Path.GetFileNameWithoutExtension(_F) My.Computer.FileSystem.RenameFile(_F, Tmp.Substring(0, Tmp.Length - 5) & IO.Path.GetExtension(_F)) Next
Добавлено через 3 минуты
Сообщение от adb420 
14022015_2321.txt
Если имя файла содержит нижнее подчеркивание, а количество цифр после него может быть не 4, а каждый раз разное, то можно обрезать имя файла по знаку «_»
1 2 3 4 5 6
Dim F() As String = IO.Directory.GetFiles("C:\ren") Dim Tmp As String For Each _F As String In F Tmp = IO.Path.GetFileNameWithoutExtension(_F) My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F)) Next
Регистрация: 09.10.2013
Сообщений: 613
Памирыч, а если файла в папке не существует?, какую проверку можно сделать? с выводом сообщения, что файлов в папке нет, или они есть, но уже до этого были переименованны?
Почетный модератор
21388 / 9122 / 1083
Регистрация: 11.04.2010
Сообщений: 11,014
adb420, количество файлов в папке у нас уже записано.
тут:
Это массив, просто проверьте его длину
If F.Length = 0 then MsgBox "Папка пустая"
1708 / 1196 / 227
Регистрация: 23.12.2010
Сообщений: 1,526
Сообщение было отмечено adb420 как решение
Решение
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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim originpath As String ' начальный путь к файлу Dim resultpath As String ' конечный путь к файлу Dim removedcount As Integer = 5 ' количество удаляемых символов ' получаем путь к оригинальному файлу Dim ofd As New OpenFileDialog With {.Multiselect = False} If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then originpath = ofd.FileName Else Exit Sub End If 'небольшая проверка Dim fnlen As Integer = IO.Path.GetFileNameWithoutExtension(originpath).Length If Not fnlen > removedcount Or Not IO.File.Exists(originpath) Then MsgBox("Количество удаляемых символов больше количества символов в имени файла или файла не существует по указанному пути!", MsgBoxStyle.Exclamation) Exit Sub End If ' получаем расширение Dim ext As String = IO.Path.GetExtension(originpath) ' теперь удаляем последние символы в количестве removedcount до расширения resultpath = originpath.Remove(originpath.Length - ext.Length - removedcount, removedcount) ' ну и переименовываем My.Computer.FileSystem.RenameFile(originpath, resultpath) End Sub