Создание/переименование текстового файла со случайным именем - VB

Формулировка задачи:

Возможно ли переименовать файл, в имя, которое содержится в первой строчке этого файла? Пример: file.txt переименовать в Иванов.txt, а нужная фамилия написана в самом файле. Ну или если это дофига делов, тогда как можно создать файл с рандомным именем? Что-нить типа asdfqg.txt

Решение задачи: «Создание/переименование текстового файла со случайным именем»

textual
                            Листинг программы 
                        

                            Sub fn(n$)
 On Error GoTo er
Fname = App.Path & "\" & n & ".txt"
F = FreeFile
    Open Fname For Input As #F
    Line Input #F, Fname_new
    Close #F
Fname_new = Split(Fname_new, " ")(0) & ".txt"
Name Fname As Fname_new
Exit Sub
er: MsgBox Err.Description
Err.Clear
End Sub
                        

Оцени полезность:

11 голосов , оценка 4 из 5

Похожие ответы