폴더에 텍스트 상자 값을 .txt로 저장하고 VB를 사용하여 파일 이름으로 타임 스탬프를 얻는 방법은 무엇입니까? .

Question

여기

내 코드입니다.

Private CurrentRecipient As String 
Private User As String = "Name" 
Dim UserFolder As String 
Dim FileName As String = Format(Now, "MMMMDDDDYYYYHHNNSS") & ".txt" 

Private Sub SendButton_Click(sender As Object, e As EventArgs) Handles 
    SendButton.Click 
    If CurrentRecipient = "Edward" Then 
     UserFolder = "C:\Users\bele\Desktop\Edward'sFolder" & FileName 
    ElseIf CurrentRecipient = "Criziel" Then 
     UserFolder = "C:\Users\bele\Desktop\Criziel'sFolder" & FileName 

    End If 

가 '나는 오류를받지하지만 메시지를 보낼 일단 그것은이 시도 양식 클래스 위에 다음과 같은 수입을 추가 아무것도 :(

Answer 1

미상하지 않습니다

수입 시스템 수입 System.IO 수입 System.Text

당신은 폴더 이름을 입력 txtFolderName라는 이름의 TextBox 컨트롤을 추가해야합니다 (에드워드의 또는 Criziel)이 작동합니다. txtFolderName에 Desktop (Edward 또는 Criziel)의 폴더 이름을 입력하고 Button1이라는 버튼을 클릭하면 올바른 폴더 안에 파일이 생성됩니다.

난 당신이 또한 디렉토리 경로 당신이 텍스트 상자

Private Sub SaveFile() 

    Dim UserFolder As String = "" 
    Dim FileName As String = DateTime.Now.ToString("MMddyyyyHHmmss") & ".txt" 
    Dim fs As FileStream 

    UserFolder = "C:\Users\bele\Desktop\" & txtFolderName.Text & "\" & FileName 

    ' Create a file 
    fs = File.Create(UserFolder) 

End Sub 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    SaveFile() 

End Sub 

행운에 입력 할 수있는 변수를해야하기 때문에 이것은 단지, 코드 아이디어를 테스트하고 추측하고있어!

fs = File.Create (UserFolder) 줄을 주석 처리하고 코드 바로 아래에이 코드를 추가하십시오.

Using sw As StreamWriter = File.CreateText(UserFolder) 
     sw.WriteLine("Hello") 
     sw.WriteLine("And") 
     sw.WriteLine("Welcome") 
    End Using