Renaming a file .. exm auto.dwg to auto.pub
Posted on 1997-08-15
what I am trying to do is a drag and drop program which it all works ,but the backing up of the file...
when it copies the file. from 1 place to another i want it to renames the original file to *.wrc
i can't get the name function to rename from auto.exe to auto.wrc..
ren$ = Form3.dir1.path & "\" & Form3.File1.List(fn)
'' the line below is the one i am having problems with..
rento$ = Form3.dir1.path & "\" & "*.wrc"
''this section is straight from microsoft..
''it allows you to use windows 95's file operations.
.hwnd = Form1.hwnd
.wFunc = FO_RENAME '' this is the rename function
' files rename FROM
.pFrom = ren$
' files rename TO
.pTo = rento$
.fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
result = SHFileOperation(fileop)
If result <> 0 Then ' Operation failed
MsgBox Err.LastDllError 'Msgbox the error that occurred in the
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox "Operation Failed"