|
Option Explicit Dim directory As String, x As Integer, ora1 As String, ora As String, path As String, nomedir As String Private Sub Command1_Click() directory = Text2.Text For x = 1 To Len(directory) - 1 If Mid(directory, x, 1) = "\" Then path = Mid(directory, 1, x - 1) Next x If Right(directory, 1) = "\" Then nomedir = Mid(directory, Len(path) + 2, Len(directory) - Len(path) - 2) Else nomedir = Mid(directory, Len(path) + 2) ora = Time Name (path & "\" & nomedir) As (path & "\" & CStr(Time)) Timer1.Enabled = True DoEvents End Sub Private Sub Timer1_Timer() Text1.Text = Time ora1 = Time Name (path & "\" & ora) As (path & "\" & ora1) ora = ora1 DoEvents End Sub
|
|
