Explorer in programm einbauen geschlossen

[Die_Pest]

hi leute...
ich bin gerade dabei ein neues programm zu schreiben, indem der anwender sozusagen in einer explorerleiste den ort aussuchen kann in dem eine datei gespeichert werden soll...

das ganze soll ungefähr so aussehen wie bei windows explorer!
also ich würde gerne in dieser leiste die laufwerke, netzlaufwerke und vll netzwerkumgebung anzeigen lassen...
und die unterordner solte man auch anzeigen lassen können!(zb mit einem kleinen plus neben der festplatte!)

und wie lässt man das anzeigen??
- in einem listview oder treeview?

würde mich sehr über hilfe freuen
mfg die_pest

 

[MrBloodhead]

Hi

durch das .NET ist das sehr bequem über ne klasse aufrufbar
hier wird beschrieben wie:
Saving Files Using the SaveFileDialog Component

 

[Eichberg]

Mit dieser Funktion können Dateien mit den Flying Windows verschoben werden. Einfach nachfolgenden Quellcode in die Zwischenablage kopieren und anschließend den Inhalt der Zwischenablage in ein neues Modul einfügen. Die Aufrufparameter stehen Sie im Quellcode beschrieben.

(hatte ich mal irgendwo aus dem Netz, leider habe ich den namen des Autors nicht mehr - funktioniert aber bestens!)

Option Explicit

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Long
hNameMaps As Long
sProgress As String
End Type

Public Declare Function SHFileOperation _
Lib "shell32.dll" Alias _
"SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) _
As Long

Public Function MoveFiles( _
sFileArray() As String, _
sDestination As String, _
Optional bDoSilent As Boolean = True) _
As Long
'// -----------------------------------------------------
'// Methode:....Verschiebt eine Anzahl Dateien;
'// .................Aufruf des "flying windows"-Dialogs
'// .................benötigt VBA6+ wegen Join-Funktion
'// -----------------------------------------------------
'// Parameter:...asFiles = Datenfeld (Array) mit
'// ..................gültigen Pfaden
'// ..................sTarget = Zielordner
'// -----------------------------------------------------
'// Rückgabe:....True bei Erfolg
'// -----------------------------------------------------

Const FOF_NOCONFIRMATION As Long = &H10
Const FOF_NOCONFIRMMKDIR As Long = &H200
Const FOF_SILENT As Long = &H4
Const FO_MOVE As Long = &H1
Dim uSHFileOp As SHFILEOPSTRUCT
Dim sFiles As String
sFiles = VBA.Join(sFileArray, vbNullChar)
sFiles = sFiles & vbNullChar
With uSHFileOp
.wFunc = FO_MOVE
.pFrom = sFiles
.pTo = sDestination
If bDoSilent Then
.fFlags = FOF_SILENT Or _
FOF_NOCONFIRMATION Or _
FOF_NOCONFIRMMKDIR
End If
End With
MoveFiles = SHFileOperation(uSHFileOp)

End Function

 

[Die_Pest]

vielen dank für eure antworten!
aber eichberg was meinst du mit...in modul einfügen?
und ist dieser code wirklich für c#?