Rename filer

Brug fso.CopyFile(source, destination) - så kan du rename.

Prøv at kigge på denne:

ssFDESKTOP = &H0 
ssFFLAGS  = &H1               
ssFTEXT    = "Omdøb filer i folder"

sSelectedPath = SelectFolder (ssFDESKTOP, ssFTEXT, ssFFLAGS)
If Len(sSelectedPath)=0 Then
    Wscript.quit
Else
    set fso=createobject("scripting.filesystemobject")
    thisfolder=sSelectedPath

        for each f in fso.getfolder(thisfolder).files
            ret = left(f.name,instr(f.name,".")-1)
            ret = ret & "_t" & right(f.name,4)
            f.name = ret

        next

end if

Function SelectFolder(ssFROOT, ssFASK, ssFFLAGS)
  Set oSHA = CreateObject("Shell.Application")
  Set oSF = oSHA.BrowseForFolder(0,ssFASK,ssFFLAGS,ssFROOT)
  If Instr(TypeName(oSF),"Folder")<> 1 Then Exit Function
  For Each oItem in oSF.ParentFolder.Items
    If oItem.Name = oSF.title Then
      SelectFolder = oItem.path
      Exit Function
    End If
Next
SelectFolder = oSF.title
End Function


//akj

eller bare

MyFile.Copy ("C:\Data\nyt_filnavn")

Mere præcist:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\test1.txt", "c:\test2.txt"
Set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("C:\Data\Save\Master.ini")
myfile.name = "omdøbt_fil.txt"


//akj

Det virket med
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\test1.txt", "c:\test2.txt"
tak
/AJVM