18. september 2010 - 11:25Der er
8 kommentarer og 1 løsning
Hvad er der galt med denne kode?
Hvor er fejlen i denne kode?
Private Sub Command1_Click() Dim old_file, new_file As String On Error Resume Next
If main.List1.ListIndex = 0 Then old_file = File1.FileName new_file = "new_test.txt" MsgBox "Dette er filen som bliver omdøbt " & old_file & "" MsgBox "Dette er filens nye navn " & new_file & "" Name old_file As new_file File1.Refresh MsgBox "Filen er blevet omdøbt" Else End If End Sub
Det virker fint med de rigtige navne i min msgbox, men den kører bare igennem til msgbox som siger filen er omdøbt, men den omdøber ikke min fil. Hvorfor?
da jeg godt vil have programmet til at være lidt fleksibel og folk så derved selv kan vælge hvor den "fil" ligger så har jeg jo drive og file list osv så hvordan ville sådan en kode se ud?
jeg har meget at lære endnu. Faktisk lidt flov for jeg udskriver jo det hele for at se hvor fejlen er og så tænker jeg ikke engang på at udskrive den linje der he he.
Problemmet var så at jeg havde mit drev 2 gange ved ikke hvorfor. altså c:c:\stien... men det har jeg ændret og nu virker det perfekt.
Så 1000 tak for hjælpen og smid et svar så jeg kan belønne dig med dine velfortjente points...
Og hold endelig øje her inde for jeg skal snart til at lave et nyt program så da kommer nok mange dumme spørgsmål også ;o)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
