omdøb hvis filen existerer

Hej, Jeg er Sebastian og dette er min anden post her, jeg er kun lige startet på VB så jeg er nybegynder, alligevel ville jeg lige prøve dit opgave her... Det er måske fejl i, da dette er noget af det først jeg laver...

Private Sub Command1_Click()
If Dir("C:\Documents and Settings\38911\Desktop\test2\*.txt") = "*.txt" Then
    Name "C:\Documents and Settings\38911\Desktop\test\*.txt" As "C:\Documents and Settings\38911\Desktop\test2\*-Renamed.txt"
    Set objFso = CreateObject("Scripting.FileSystemObject")
    objFso.MoveFile "C:\Documents and Settings\38911\Desktop\test\*-Renamed.txt", "C:\Documents and Settings\38911\Desktop\test2\*-Renamed.txt"
    MsgBox "Renamed and Done"
    Else
    Set objFso = CreateObject("Scripting.FileSystemObject")
    objFso.MoveFile "C:\Documents and Settings\38911\Desktop\test\*.txt", "C:\Documents and Settings\38911\Desktop\test2\"
    MsgBox "Done"
End If
End Sub

Jeg håber dette måske hjælper, men jeg kan ikke garentere for at der ikke er fejl da dette er første gang jeg nogen sinde prøver noget med fil flytning...

*Vi den fil du prøver at flytte ikke findes vil min version dog crashe... Jeg ved ikke om dette er et problem, da jeg ikke kender dit formål med det, men vis det er vil jeg da med glæde "rette" lidt i den

Noget andet er at der måske er fejl i distinationerne, siden jeg skrev dette her på min ejen computer og brugte andre mapper og filer


Msg boxene var for jeg kunne følje med uden at teste hele tiden, du kan bare fjerne dem vis du vil...(-:


Edit: Nu er klokken kvart over et og jeg kan ikke sove... Jeg lave lige en version til dig så der ikke sker noget vis den ikke kan finde filen

Private Sub CmdTEST_Click()
    If Dir("C:\Users\Sebastian Holdum\Documents\Manga\1\p.bmp") = "p.bmp" = False Then
        MsgBox "No file", , "Besked"
    Else
        If Dir("C:\Users\Sebastian Holdum\Documents\Manga\2\p.bmp") = "p.bmp" Then
            Name "C:\Users\Sebastian Holdum\Documents\Manga\1\p.bmp" As "C:\Users\Sebastian Holdum\Documents\Manga\1\p-Renamed.bmp"
            Set objFso = CreateObject("Scripting.FileSystemObject")
            objFso.MoveFile "C:\Users\Sebastian Holdum\Documents\Manga\1\p-Renamed.bmp", "C:\Users\Sebastian Holdum\Documents\Manga\2\p-Renamed.bmp"
            MsgBox "Renamed and Done", , "Besked"
        Else
            Set objFso = CreateObject("Scripting.FileSystemObject")
            objFso.MoveFile "C:\Users\Sebastian Holdum\Documents\Manga\1\p.bmp", "C:\Users\Sebastian Holdum\Documents\Manga\2\p.bmp"
            MsgBox "Done", , "Besked"
        End If
    End If
End Sub

Håber du kan bruge den...

Takker for hjælpen

Lige nu arbejder jeg videre på den script jeg startede med. den er nok lidt smartere nu end den var prøver at få den til at ømdøbe nogle filer(billeder) til det dato de blev oprettet i. men har stadi nogle problemer.

lige nu ømdøber den filen til det dato det er i dag(perecent day) men vil have den at ømdøbe filen til det dato filen blev oprettet i.

måske du kan hjælpe

her er koden. det er en .vbs fil

Dim WshShell, FileManagement, BrowseDialogBox, SelectedFolder, OldString, NewString, FullPath, TheFolder, FileList
Dim File, ThisFile, TheString, AlreadyRenamed, TempName, FlagName, Success, DateCreated, FindFlag, objFile, NewName, Dummy
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileManagement = WScript.CreateObject ("Scripting.FileSystemObject")
Set BrowseDialogBox = WScript.CreateObject("Shell.Application")
Set SelectedFolder = BrowseDialogBox.BrowseForFolder(0, "Vælg mappen hvor filerne du ønsker at omdøbe ligger i.", &H0001)


If InStr(1, TypeName(SelectedFolder), "Folder") = 0 Then
Wscript.Quit

Else
OldString = InputBox("Skriv navnet eller filtypen hos filen der skal omdøbes","Rename Files")
If OldString = "" Then Wscript.Quit

Startstring = InputBox("Hvad skal filerne hedde i starten. eks Spanien","Rename Files")
If Startstring = "" Then Wscript.Quit

NewString = " .Den " & Right("0" & Day(now), 2) & "-" & Right("0" & Month(now), 2) & "-" &  Year(now) & ". Kl " & Right("0" & Hour(now), 2) & "-" & Right("0" & Minute(now), 2) & "-" & Right("0" & Second(now), 2) & ".jpg"
If NewString = "" Then Wscript.Quit

End If
FullPath = SelectedFolder.ParentFolder.ParseName(SelectedFolder.Title).Path
Set TheFolder = FileManagement.GetFolder(FullPath)
Set FileList = TheFolder.Files
Success = 0
For Each File in FileList
ThisFile = File.Name
TheString = InStr(ThisFile, OldString)
AlreadyRenamed = InStr(ThisFile, "%")

If (TheString <> 0) AND (AlreadyRenamed = 0) Then
Success = 1
TempName = Replace(ThisFile, OldString, NewString)
FlagName = "%" + TempName
File.Name = Startstring + NewString
End If
Next
For Each File in FileList

ThisFile = File.Name
FindFlag = InStr(ThisFile, "%")
If FindFlag <> 0 Then
NewName = Replace(ThisFile, "%", "")
File.Name = NewName
End If
Next
If Success = 1 Then
Dummy = WshShell.Popup ("Filerne er nu ømdøbet!",5,"Rename Files",64)
Else
Dummy = WshShell.Popup ("Der skete en fejl. husk at det skal være case sensitive.",0,"Rename Files",16)
End If
Wscript.Quit