14 lines
240 B
Text
14 lines
240 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim result As Long
|
|
result = Name("input.txt", "output.txt")
|
|
If result <> 0 Then
|
|
Print "Renaming file failed"
|
|
End If
|
|
|
|
result = Name("docs", "mydocs")
|
|
If result <> 0 Then
|
|
Print "Renaming directory failed"
|
|
End If
|
|
|
|
Sleep
|