Imports System
Imports System.IO
Imports System.Text

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim MyDateNow As Date = Date.Now
Dim Time_path As String = Replace(MyDateNow, ":", "_")
Dim path As String = "C:\HY_NW\" & Time_path & ".txt"

Dim fs As FileStream = File.Create(path)
Label1.Text = path
Dim mypath As String = Label1.Text
End Sub
End Class