15 lines
240 B
Text
15 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
|