hej ni.

finns det någon snäll ,som kan hjälpa mig?
har sökt över allt om problemet.
de svar jag fick förut, har inte hjälp mig så mycket :(

problemet är.

jag har två filelistbox.

tex
filelistbox1 "C:\temp"
filelistbox2 "D:\flyttat"

i filelistbox1 alla filer där vill jag flytta till filelistbox2.

när det är klart så vill jag att filerna ska komma upp i filelistbox2.
typ refresh.

mvh larsson

Något att leka med

Lägg ut två FileListBox (FileListBox1 och FileListBox2 )
Fyra Command-knappar i en array (Command1(0-3))
Klista in följande koden:

Private Sub Command1_Click(Index As Integer)
Set fso = CreateObject("Scripting.FileSystemObject")
Select Case Index
Case 0 'En vänster till höger
fso.MoveFile File1.Path & "\" & File1.FileName, File2.Path & "\"
Case 1 'All vänster till höger
fso.MoveFile File1.Path & "\*.*", File2.Path & "\"
Case 2 'En höger till vänster
fso.MoveFile File2.Path & "\" & File2.FileName, File1.Path & "\"
Case 3 'Alla höger till vänster
fso.MoveFile File2.Path & "\*.*", File1.Path & "\"
End Select
Set fso = Nothing
File1.Refresh
File2.Refresh

End Sub


Private Sub Form_Load()

Command1(0).Caption = ">"
Command1(1).Caption = ">>"
Command1(2).Caption = "<"
Command1(3).Caption = "<<"
File1.Path = "c:\temp1"
File2.Path = "c:\temp2"

End Sub

/Janne

:-)