Hur gör man det.
Jag har fått filen att flytta men den vill inte skriva över och då säger den ett VB6 och stänger ner sig.

Du har inte lite kod eller så?

Jo jag får återkomma.
Måste först installera VB6 på burken :)

Har du glömt att göra Close # efter varje manöver.
Har du bytt till ny FreeFile ?

Använd aldrig #1
Skall vara ex. Fnum = FreeFile
Close #Fnum

Output måste Close :as innam man öppnar den med nytt Fnum

Kopiera:
<code>
Sub kopiera()
Dim katalog As String
Dim svar As Integer
Dim filnamn As String


filen = frmMDI.ActiveForm.Caption

svar = MsgBox("Vill du spara i din standardkatalog", vbYesNoCancel)

If svar = vbYes Then 'En bestämd plats
katalog = ReadIni(App.Path + "\inst.ini", "katalogen", "katalog")
filnamn = Right(filen, Len(filen) - InStrRev(filen, "\"))
Kill katalog + filnamn
FileCopy filen, katalog + filnamn

ElseIf svar = vbNo Then 'Välj var den ska ligga
katalog = BrowseForFolder(katalog, Me.hwnd, "&Var vill kopiera filen till:")
filnamn = Right(filen, Len(filen) - InStrRev(filen, "\"))
Kill katalog + "\" + filnamn
FileCopy filen, katalog + "\" + filnamn
Else
MsgBox "Kopieringen har avbrytit"
End If
End Sub
</code>



Flytta:
<code>
Sub flytta()
Dim katalog As String
Dim svar As Integer
Dim filnamn As String

filen = frmMDI.ActiveForm.Caption

svar = MsgBox("Vill du flytta den till din standardkatalog", vbYesNoCancel)

If svar = vbYes Then 'En bestämd plats
katalog = ReadIni(App.Path + "\inst.ini", "katalogen", "katalog")
filnamn = Right(filen, Len(filen) - InStrRev(filen, "\"))
Kill katalog + filnamn
Name filen As katalog + filnamn
fillistan.Refresh
frmMDI.ActiveForm.Caption = katalog + filnamn
frmMDI.ActiveForm.bilden.ToolTipText = katalog + filnamn

ElseIf svar = vbNo Then 'Välj var den ska ligga
katalog = BrowseForFolder(katalog, Me.hwnd, "&Var vill flytta filen till:")
filnamn = Right(filen, Len(filen) - InStrRev(filen, "\"))
Kill katalog + filnamn
Name filen As katalog + filnamn
fillistan.Refresh
frmMDI.ActiveForm.Caption = katalog + filnamn
frmMDI.ActiveForm.bilden.ToolTipText = katalog + filnamn

Else

End If

End Sub
</code>

Den ena är till för att kopiera och den andra är till för att flytta
Den frågar även om den ska till en standardkatalog eller om man ska välja var den ska ligga.

Undrar om det inte räcker med att du lägger in ett <b>DoEvents</b> efter raden Kill

Ska testa när jag har lite tid imorgon.