File- und FolderPicker

    • XAML: WPF MVVM
    • .NET (FX) 4.5–4.8

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von siycah.

      File- und FolderPicker

      Hey liebe Community,

      da ich ja in letzter Zeit die Nerven so einiger in Anspruch genommen hab, dachte ich ich geb mal was zurück, und da ich sowieso grad dabei war, hab ich gedacht, ich lade mal meinen File- und FolderPicker hier hoch...

      Ist nichts besonderes, aber halt WPF und MVVM, und ich denke es ist ideal, wenn man neu in MVVM ist, das mal als Projekt zum mit rum spielen zu nehmen, da nicht so umfangreich.

      Die View sieht so aus (im XAML müsst ihr in den Zeilen 25, 31 und 37 noch ein passenders XAML Icon unter Data eintagen; die Buttons funktionieren aber auch so und sind mit Tooltips versehen...; gibts im Internet zu finden...)

      Spoiler anzeigen

      XML-Quellcode

      1. <Grid>
      2. <Grid.ColumnDefinitions>
      3. <ColumnDefinition Width="30*"/>
      4. <ColumnDefinition Width="3"/>
      5. <ColumnDefinition Width="70*"/>
      6. </Grid.ColumnDefinitions>
      7. <Grid.RowDefinitions>
      8. <RowDefinition Height="15*"/>
      9. <RowDefinition Height="60*"/>
      10. <RowDefinition Height="10*"/>
      11. <RowDefinition Height="15*"/>
      12. </Grid.RowDefinitions>
      13. <GridSplitter Grid.Column="1" Grid.Row="1" HorizontalAlignment="Stretch" VerticalAlignment="Stretch" Foreground="{DynamicResource VordergrundfarbeBrush}" Width="3" Background="{DynamicResource VordergrundfarbeBrush}" Margin="0, 10, 0, 10"/>
      14. <Grid Grid.Row="0" Grid.Column="0" Grid.ColumnSpan="3" Margin="10">
      15. <Grid.ColumnDefinitions>
      16. <ColumnDefinition Width="85*"/>
      17. <ColumnDefinition Width="5*"/>
      18. <ColumnDefinition Width="5*"/>
      19. <ColumnDefinition Width="5*"/>
      20. </Grid.ColumnDefinitions>
      21. <Border Grid.Column="1" Style="{DynamicResource Navigationsbuttons}" ToolTip="Benenne den aktuellen Ordner um...">
      22. <Border.InputBindings>
      23. <MouseBinding MouseAction="LeftClick" Command="{Binding Umbenennen}"/>
      24. </Border.InputBindings>
      25. <Path Fill="{DynamicResource VordergrundfarbeBrush}" Data=""/>
      26. </Border>
      27. <Border Grid.Column="2" Style="{DynamicResource Navigationsbuttons}" ToolTip="Erstelle im aktuellen Ordner einen neuen Ordner...">
      28. <Border.InputBindings>
      29. <MouseBinding MouseAction="LeftClick" Command="{Binding NeuenOrdnerErstellen}"/>
      30. </Border.InputBindings>
      31. <Path Fill="{DynamicResource VordergrundfarbeBrush}" Data=""/>
      32. </Border>
      33. <Border Grid.Column="3" Style="{DynamicResource Navigationsbuttons}" ToolTip="Springe zum übergeordneten Ordner...">
      34. <Border.InputBindings>
      35. <MouseBinding MouseAction="LeftClick" Command="{Binding SpringeOrdnerDarueber}"/>
      36. </Border.InputBindings>
      37. <Path Fill="{DynamicResource VordergrundfarbeBrush}" Data=""/>
      38. </Border>
      39. <Label Grid.Column="0" VerticalAlignment="Center" Background="Transparent" Foreground="{DynamicResource VordergrundfarbeBrush}" Content="{Binding AktuellerOrdner, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"/>
      40. </Grid>
      41. <ListBox Grid.Row="1" Grid.Column="0" ItemsSource="{Binding RootVerzeichnisseStrings, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" SelectedIndex="{Binding RootIndex, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" Background="Transparent" Foreground="{DynamicResource VordergrundfarbeBrush}" Margin="10">
      42. <ListBox.ItemTemplate>
      43. <DataTemplate>
      44. <StackPanel>
      45. <StackPanel.InputBindings>
      46. <MouseBinding Gesture="LeftDoubleClick"
      47. Command="{Binding DataContext.RootAuswaehlen, RelativeSource={RelativeSource Mode=FindAncestor, AncestorType={x:Type UserControl}}, Mode=OneWay}"
      48. CommandParameter="{Binding }" />
      49. </StackPanel.InputBindings>
      50. <TextBlock Text="{Binding}"/>
      51. </StackPanel>
      52. </DataTemplate>
      53. </ListBox.ItemTemplate>
      54. </ListBox>
      56. <ListBox Grid.Row="1" Grid.Column="2" ItemsSource="{Binding UnterVerzeichnisseStrings, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" Background="Transparent" Foreground="{DynamicResource VordergrundfarbeBrush}" Margin="10" SelectedIndex="{Binding UnterVerzeichnisIndex, Mode=OneWayToSource, UpdateSourceTrigger=PropertyChanged}">
      57. <ListBox.ItemTemplate>
      58. <DataTemplate>
      59. <StackPanel>
      60. <StackPanel.InputBindings>
      61. <MouseBinding Gesture="LeftDoubleClick"
      62. Command="{Binding DataContext.VerzeichnisAuswaehlen, RelativeSource={RelativeSource Mode=FindAncestor, AncestorType={x:Type UserControl}}, Mode=OneWay}"
      63. CommandParameter="{Binding }" />
      64. </StackPanel.InputBindings>
      65. <TextBlock Text="{Binding}"/>
      66. </StackPanel>
      67. </DataTemplate>
      68. </ListBox.ItemTemplate>
      69. </ListBox>
      70. <Grid Grid.Row="2" Grid.Column="2">
      71. <Grid.ColumnDefinitions>
      72. <ColumnDefinition Width="85"/>
      73. <ColumnDefinition Width="*"/>
      74. <ColumnDefinition Width="130"/>
      75. </Grid.ColumnDefinitions>
      76. <Label Content="Dateiname:" Margin="10, 0, 0, 0" Grid.Column="0" Background="Transparent" Foreground="{DynamicResource VordergrundfarbeBrush}" VerticalAlignment="Center" HorizontalAlignment="Left" Visibility="{Binding DateiNameSichtBar, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
      77. <TextBox Grid.Column="1" Text="{Binding Dateiname, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" Background="Transparent" Foreground="{DynamicResource VordergrundfarbeBrush}" Visibility="{Binding DateiNameSichtBar, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" VerticalAlignment="Center" Margin="0, 0, 10, 0"/>
      78. <ComboBox Grid.Column="2" ItemsSource="{Binding DateiTypen, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" IsEditable="False" SelectedItem="{Binding GewaehlterDateiTyp, Mode=OneWayToSource, UpdateSourceTrigger=PropertyChanged}" VerticalAlignment="Center" Margin="0, 0, 10, 0" SelectedIndex="{Binding DateiTypIndex, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" HorizontalAlignment="Stretch" Visibility="{Binding DateiNameSichtBar, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
      79. </Grid>
      80. <Grid Grid.Row="3" Grid.Column="0" Grid.ColumnSpan="3">
      81. <Grid.ColumnDefinitions>
      82. <ColumnDefinition Width="50*"/>
      83. <ColumnDefinition Width="50*"/>
      84. </Grid.ColumnDefinitions>
      85. <Button Margin="10" Content="OK" Command="{Binding OK}" Grid.Column="0" HorizontalAlignment="Stretch" VerticalAlignment="Stretch"/>
      86. <Button Margin="10" Content="Abbrechen" Command="{Binding Abbrechen}" Grid.Column="1" HorizontalAlignment="Stretch" VerticalAlignment="Stretch"/>
      87. </Grid>
      88. </Grid>


      Und das ViewModel:

      Spoiler anzeigen

      Quellcode

      1. Option Strict On
      2. Imports System.Collections.ObjectModel
      3. Imports System.IO
      4. Imports System.Windows
      5. Imports System.Windows.Input
      6. Imports Microsoft.VisualBasic
      8. Public Class FolderBrowserViewModel
      9. Inherits Instrastructure.ViewModelBase
      11. 'Private dialogService As Services.IDialogWindowService = Services.ServiceContainer.GetService(Of Services.IDialogWindowService)
      13. Public Optionen As Options
      15. Private _DateiTypen As ObservableCollection(Of String)
      16. Public Property DateiTypen As ObservableCollection(Of String)
      17. Get
      18. Return _DateiTypen
      19. End Get
      20. Set(value As ObservableCollection(Of String))
      21. _DateiTypen = value
      22. RaisePropertyChanged()
      23. End Set
      24. End Property
      26. Public Property Ergebnis As String
      28. Public Enum Options
      29. FolderPicker = 0
      30. OpenFile = 1
      31. SaveFile = 2
      32. End Enum
      34. Public Sub New() 'zum Testen hier ein parameterloser Konstruktor
      35. RootIndex = -1
      36. Optionen = Options.OpenFile
      37. DateiTypen = New ObservableCollection(Of String)
      38. Initialisieren()
      39. 'AktuellerOrdner = ""
      40. End Sub
      42. Public Sub New(argStartVerzeichnis As String, argOptions As Options, argDateiTypen As List(Of String))
      44. RootIndex = -1
      45. Optionen = argOptions
      46. DateiTypen = New ObservableCollection(Of String)(argDateiTypen)
      47. Initialisieren()
      48. If System.IO.Directory.Exists(argStartVerzeichnis) Then
      49. AktuellerOrdner = argStartVerzeichnis
      50. End If
      51. End Sub
      53. Private Sub Initialisieren()
      54. If IsInDesignMode = False Then
      55. RootVerzeichnisse = New ObservableCollection(Of Model.RootVerzeichnisseModel)
      56. UnterVerzeichnisse = New ObservableCollection(Of String)
      58. Dim LaufWerkTyp As String
      59. For Each Laufwerk In System.IO.DriveInfo.GetDrives
      60. If Laufwerk.DriveType = DriveType.CDRom Then
      61. LaufWerkTyp = "CD/DVD-ROM"
      62. ElseIf Laufwerk.DriveType = DriveType.Fixed Then
      63. LaufWerkTyp = "Festplatte"
      64. ElseIf Laufwerk.DriveType = DriveType.Network Then
      65. LaufWerkTyp = "Netzlaufwerk"
      66. ElseIf Laufwerk.DriveType = DriveType.Ram Then
      67. LaufWerkTyp = "RAM-Speicher"
      68. ElseIf Laufwerk.DriveType = DriveType.Removable Then
      69. LaufWerkTyp = "Wechseldatenträger"
      70. Else
      71. LaufWerkTyp = "Unbekannter Datenträgertyp"
      72. End If
      73. Dim LaufwerksName As String
      74. Try
      75. LaufwerksName = Laufwerk.VolumeLabel
      76. Catch ex As Exception
      77. LaufwerksName = ""
      78. End Try
      79. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Laufwerk.Name, LaufwerksName, LaufWerkTyp))
      80. Next
      81. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.MyPictures), "Meine Bilder", "Bibliothek"))
      82. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Mein Desktop", "Bibliothek"))
      83. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Meine Dokumente", "Bibliothek"))
      84. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.MyMusic), "Meine Musik", "Bibliothek"))
      85. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.MyVideos), "Meine Videos", "Bibliothek"))
      87. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.CommonPictures), "Öffentliche Bilder", "Bibliothek"))
      88. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.CommonDocuments), "Öffentliche Dokumente", "Bibliothek"))
      89. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.CommonMusic), "Öffentliche Musik", "Bibliothek"))
      90. RootVerzeichnisse.Add(New Model.RootVerzeichnisseModel(Environment.GetFolderPath(Environment.SpecialFolder.CommonVideos), "Öffentliche Videos", "Bibliothek"))
      92. If Optionen = Options.SaveFile Then
      93. DateiNameSichtBar = Visibility.Visible
      94. Else
      95. DateiNameSichtBar = Visibility.Hidden
      96. End If
      98. If (Optionen = Options.OpenFile) Or (Optionen = Options.SaveFile) Then
      99. If DateiTypen.Count > 0 Then DateiTypIndex = 0
      100. End If
      101. End If
      102. End Sub
      104. Private _OK As ICommand
      105. Public ReadOnly Property OK As ICommand
      106. Get
      107. If _OK Is Nothing Then _OK = New ViewModel.Instrastructure.RelayCommand(AddressOf OK_Execute)
      108. Return _OK
      109. End Get
      110. End Property
      112. Private Sub OK_Execute(obj As Object)
      113. Select Case Optionen
      114. Case Options.FolderPicker
      115. Ergebnis = AktuellerOrdner
      116. Case Options.OpenFile
      117. If UnterVerzeichnisIndex <> -1 Then
      118. Dim IsDir As Boolean = System.IO.File.GetAttributes(UnterVerzeichnisse(UnterVerzeichnisIndex)) = FileAttributes.Directory
      119. If IsDir Then
      120. 'Dim OKVM = New OKDialogViewModel
      121. 'OKVM.Meldung = "Du hast einen Ordner ausgewählt. Bitte wähle eine Datei aus."
      122. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      123. MessageBox.Show("Du hast einen Ordner ausgewählt. Bitte wähle eine Datei aus.")
      124. Return
      125. Else
      126. Ergebnis = UnterVerzeichnisse(UnterVerzeichnisIndex)
      127. End If
      128. Else
      129. 'Dim OKVM = New OKDialogViewModel
      130. 'OKVM.Meldung = "Bitte wähle eine Datei aus."
      131. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      132. MessageBox.Show("Bitte wähle eine Datei aus.")
      133. Return
      134. End If
      135. Case Options.SaveFile
      136. If String.IsNullOrEmpty(Dateiname) Then
      137. 'Dim OKVM = New OKDialogViewModel
      138. 'OKVM.Meldung = "Bitte gebe einen Dateinamen an."
      139. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      140. MessageBox.Show("Bitte gebe einen Dateinamen an.")
      141. Return
      142. End If
      143. If String.IsNullOrEmpty(GewaehlterDateiTyp) Then
      144. 'Dim OKVM = New OKDialogViewModel
      145. 'OKVM.Meldung = "Bitte wähle einen Dateityp aus."
      146. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      147. MessageBox.Show("Bitte wähle einen Dateityp aus.")
      148. Return
      149. End If
      150. For Each Zeichen In System.IO.Path.GetInvalidFileNameChars
      151. If Dateiname.Contains(Zeichen) Then
      152. 'Dim OKVM = New OKDialogViewModel
      153. 'OKVM.Meldung = "Du hast ein ungültiges Zeichen (" & Zeichen & ") im Dateinamen. Bitte gebe einen gültigen Dateinamen an."
      154. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      155. MessageBox.Show("Du hast ein ungültiges Zeichen (" & Zeichen & ") im Dateinamen. Bitte gebe einen gültigen Dateinamen an.")
      156. Return
      157. End If
      158. Next
      159. Ergebnis = AktuellerOrdner & "\" & Dateiname & GewaehlterDateiTyp
      161. End Select
      162. 'dialogService.CloseDialog(Me)
      163. End Sub
      165. Private _Abbrechen As ICommand
      166. Public ReadOnly Property Abbrechen As ICommand
      167. Get
      168. If _Abbrechen Is Nothing Then _Abbrechen = New ViewModel.Instrastructure.RelayCommand(AddressOf Abbrechen_Execute)
      169. Return _Abbrechen
      170. End Get
      171. End Property
      173. Private Sub Abbrechen_Execute(obj As Object)
      174. Ergebnis = ""
      175. 'dialogService.CloseDialog(Me)
      176. End Sub
      178. Private _Dateiname As String
      179. Public Property Dateiname As String
      180. Get
      181. Return _Dateiname
      182. End Get
      183. Set(value As String)
      184. _Dateiname = value
      185. RaisePropertyChanged()
      186. End Set
      187. End Property
      189. Private _RootVerzeichnisse As ObservableCollection(Of Model.RootVerzeichnisseModel)
      190. Public Property RootVerzeichnisse As ObservableCollection(Of Model.RootVerzeichnisseModel)
      191. Get
      192. Return _RootVerzeichnisse
      193. End Get
      194. Set(value As ObservableCollection(Of Model.RootVerzeichnisseModel))
      195. _RootVerzeichnisse = value
      196. RaisePropertyChanged()
      197. End Set
      198. End Property
      200. Public ReadOnly Property RootVerzeichnisseStrings As ObservableCollection(Of String)
      201. Get
      202. Dim retList As New List(Of String)
      203. For Each Laufwerk In RootVerzeichnisse
      204. If Laufwerk.Typ <> "Bibliothek" Then
      205. retList.Add(Laufwerk.Pfad & " " & Laufwerk.Bezeichnung & " (" & Laufwerk.Typ & ")")
      206. Else
      207. retList.Add(Laufwerk.Bezeichnung & " (" & Laufwerk.Typ & ")")
      208. End If
      209. Next
      210. Return New ObservableCollection(Of String)(retList)
      211. RaisePropertyChanged()
      212. End Get
      213. End Property
      215. Private _UnterVerzeichnisse As ObservableCollection(Of String)
      216. Public Property UnterVerzeichnisse As ObservableCollection(Of String)
      217. Get
      218. Return _UnterVerzeichnisse
      219. End Get
      220. Set(value As ObservableCollection(Of String))
      221. _UnterVerzeichnisse = value
      222. RaisePropertyChanged()
      223. End Set
      224. End Property
      226. 'Private _RootGewaehlt As ICommand
      227. 'Public ReadOnly Property RootGewaehlt As ICommand
      228. ' Get
      229. ' If _RootGewaehlt Is Nothing Then _RootGewaehlt = New ViewModel.Instrastructure.RelayCommand(AddressOf RootGewaehlt_Execute)
      230. ' Return _RootGewaehlt
      231. ' End Get
      232. 'End Property
      234. 'Private Sub RootGewaehlt_Execute(obj As Object)
      235. ' UnterVerzeichnisse = New ObservableCollection(Of String)
      236. ' For Each Unterverzeichnis In System.IO.Directory.GetDirectories(RootVerzeichnisse(RootIndex).Pfad)
      237. ' UnterVerzeichnisse.Add(Unterverzeichnis)
      238. ' Next
      239. ' RaisePropertyChanged(NameOf(UnterVerzeichnisse))
      240. 'End Sub
      242. Private _RootIndex As Integer
      243. Public Property RootIndex As Integer
      244. Get
      245. Return _RootIndex
      246. End Get
      247. Set(value As Integer)
      248. _RootIndex = value
      249. 'If value <> -1 Then AktuellerOrdner = RootVerzeichnisse(value).Pfad
      250. RaisePropertyChanged()
      251. End Set
      252. End Property
      254. Private _AktuellerOrdner As String
      255. Public Property AktuellerOrdner As String
      256. Get
      257. Return _AktuellerOrdner
      258. End Get
      259. Set(value As String)
      261. Dim UnsortierteListe As New List(Of String)
      262. UnterVerzeichnisse = New ObservableCollection(Of String)
      263. Try
      264. For Each Unterverzeichnis In System.IO.Directory.GetDirectories(value)
      265. UnsortierteListe.Add(Unterverzeichnis)
      266. Next
      268. UnsortierteListe.Sort()
      269. UnterVerzeichnisse = New ObservableCollection(Of String)(UnsortierteListe)
      270. UnsortierteListe.Clear()
      272. If (Optionen = Options.OpenFile) Or (Optionen = Options.SaveFile) Then
      273. For Each Datei In System.IO.Directory.GetFiles(value)
      274. For Each DateiTyp In DateiTypen
      275. If Datei.ToLower.EndsWith(DateiTyp) Then
      276. UnsortierteListe.Add(Datei)
      277. End If
      278. Next
      279. UnsortierteListe.Sort()
      280. For Each item In UnsortierteListe
      281. UnterVerzeichnisse.Add(item)
      282. Next
      283. 'UnterVerzeichnisse.Add(Datei)
      284. Next
      285. End If
      287. _AktuellerOrdner = value
      289. Catch ex As Exception
      290. 'Dim OKVM = New OKDialogViewModel
      291. 'OKVM.Meldung = "Dieser Ordner konnte nicht geöffnet werden." & Environment.NewLine & "Fehlermeldung: " & ex.Message
      292. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      293. MessageBox.Show("Dieser Ordner konnte nicht geöffnet werden." & Environment.NewLine & "Fehlermeldung: " & ex.Message)
      295. Return
      296. End Try
      298. RaisePropertyChanged(NameOf(UnterVerzeichnisseStrings))
      299. RaisePropertyChanged()
      300. End Set
      301. End Property
      303. Private _UnterVerzeichnisIndex As Integer
      304. Public Property UnterVerzeichnisIndex As Integer
      305. Get
      306. Return _UnterVerzeichnisIndex
      307. End Get
      308. Set(value As Integer)
      310. _UnterVerzeichnisIndex = value
      311. 'If (value <> -1) Then
      312. ' Dim IsDir As Boolean = System.IO.File.GetAttributes(UnterVerzeichnisse(value)) = FileAttributes.Directory
      313. ' If IsDir Then AktuellerOrdner = UnterVerzeichnisse(value)
      314. 'End If
      315. RaisePropertyChanged()
      317. End Set
      318. End Property
      320. Public ReadOnly Property UnterVerzeichnisseStrings As ObservableCollection(Of String)
      321. Get
      322. Dim retList As New List(Of String)
      323. For Each Verzeichnis In UnterVerzeichnisse
      324. retList.Add(New System.IO.DirectoryInfo(Verzeichnis).Name)
      325. Next
      326. Return New ObservableCollection(Of String)(retList)
      327. RaisePropertyChanged()
      328. End Get
      329. End Property
      331. Private _SpringeOrdnerDarueber As ICommand
      332. Public ReadOnly Property SpringeOrdnerDarueber As ICommand
      333. Get
      334. If _SpringeOrdnerDarueber Is Nothing Then _SpringeOrdnerDarueber = New ViewModel.Instrastructure.RelayCommand(AddressOf SpringeOrdnerDarueber_Execute)
      335. Return _SpringeOrdnerDarueber
      336. End Get
      337. End Property
      339. Private Sub SpringeOrdnerDarueber_Execute(obj As Object)
      341. If (Not String.IsNullOrEmpty(AktuellerOrdner)) AndAlso (Not AktuellerOrdner.Length = 3) Then
      342. Dim OrdnerInfo As New System.IO.DirectoryInfo(AktuellerOrdner)
      343. AktuellerOrdner = OrdnerInfo.Parent.FullName
      344. End If
      345. End Sub
      347. Private _GewaehlterDateiTyp As String
      348. Public Property GewaehlterDateiTyp As String
      349. Get
      350. Return _GewaehlterDateiTyp
      351. End Get
      352. Set(value As String)
      353. _GewaehlterDateiTyp = value
      354. RaisePropertyChanged()
      355. End Set
      356. End Property
      358. Private _DateiNameSichtBar As Visibility
      359. Public Property DateiNameSichtBar As Visibility
      360. Get
      361. Return _DateiNameSichtBar
      362. End Get
      363. Set(value As Visibility)
      364. _DateiNameSichtBar = value
      365. RaisePropertyChanged()
      366. End Set
      367. End Property
      369. Private _NeuenOrdnerErstellen As ICommand
      370. Public ReadOnly Property NeuenOrdnerErstellen As ICommand
      371. Get
      372. If _NeuenOrdnerErstellen Is Nothing Then _NeuenOrdnerErstellen = New ViewModel.Instrastructure.RelayCommand(AddressOf NeuenOrdnerErstellen_Execute)
      373. Return _NeuenOrdnerErstellen
      374. End Get
      375. End Property
      377. Private Sub NeuenOrdnerErstellen_Execute(obj As Object)
      378. Dim result As String = Interaction.InputBox("Bitte gebe einen Namen für den neuen Ordner ein:")
      379. 'Dim InputBoxVM = New ViewModel.InputBoxDialogViewModel("Bitte gebe einen Namen für den neuen Ordner ein:")
      380. 'dialogService.ShowModalDialog("", InputBoxVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      381. If result = "" Then Return
      382. Dim NeuerOrdnerName As String = result
      383. 'Dim NeuerOrdnerName As String = Interaction.InputBox("Bitte gebe einen Namen für den neuen Ordner ein.")
      384. For Each Zeichen In System.IO.Path.GetInvalidPathChars
      385. If NeuerOrdnerName.Contains(Zeichen) Then
      386. 'Dim OKVM = New OKDialogViewModel
      387. 'OKVM.Meldung = "Du hast ein ungültiges Zeichen (" & Zeichen & ") im neuen Ordnernamen. Bitte gebe einen gültigen Ordnernamen an."
      388. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      389. MessageBox.Show("Du hast ein ungültiges Zeichen (" & Zeichen & ") im neuen Ordnernamen. Bitte gebe einen gültigen Ordnernamen an.")
      390. Return
      391. End If
      392. Next
      393. Try
      394. System.IO.Directory.CreateDirectory(AktuellerOrdner & "\" & NeuerOrdnerName)
      395. AktuellerOrdner = AktuellerOrdner
      396. Catch ex As Exception
      397. 'Dim OKVM = New OKDialogViewModel
      398. 'OKVM.Meldung = "Der neue Ordner konnte nicht erstellt werden. " & Environment.NewLine & "Fehlermeldung: " & ex.Message
      399. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      400. MessageBox.Show("Der neue Ordner konnte nicht erstellt werden. " & Environment.NewLine & "Fehlermeldung: " & ex.Message)
      401. End Try
      402. End Sub
      404. Private _Umbenennen As ICommand
      405. Public ReadOnly Property Umbenennen As ICommand
      406. Get
      407. If _Umbenennen Is Nothing Then _Umbenennen = New ViewModel.Instrastructure.RelayCommand(AddressOf Umbenennen_Execute)
      408. Return _Umbenennen
      409. End Get
      410. End Property
      412. Private Sub Umbenennen_Execute(obj As Object)
      413. 'Dim InputBoxVM = New ViewModel.InputBoxDialogViewModel("Bitte gebe einen neuen Namen für den aktuellen Ordner ein:")
      414. 'dialogService.ShowModalDialog("", InputBoxVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      415. Dim result As String = Interaction.InputBox("Bitte gebe einen neuen Namen für den aktuellen Ordner ein:")
      416. If result = "" Then Return
      417. Dim NeuerOrdnerName As String = result
      418. 'Dim NeuerOrdnerName As String = Interaction.InputBox("Bitte gebe einen neuen Namen für den aktuellen Ordner ein.")
      419. For Each Zeichen In System.IO.Path.GetInvalidPathChars
      420. If NeuerOrdnerName.Contains(Zeichen) Then
      421. 'Dim OKVM = New OKDialogViewModel
      422. 'OKVM.Meldung = "Du hast ein ungültiges Zeichen (" & Zeichen & ") im neuen Ordnernamen. Bitte gebe einen gültigen Ordnernamen an."
      423. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      424. MessageBox.Show("Du hast ein ungültiges Zeichen (" & Zeichen & ") im neuen Ordnernamen. Bitte gebe einen gültigen Ordnernamen an.")
      425. Return
      426. End If
      428. Next
      429. Try
      430. Dim OrdnerInfo As New System.IO.DirectoryInfo(AktuellerOrdner)
      431. Dim ParentVerzeichnis As String = OrdnerInfo.Parent.FullName
      432. System.IO.Directory.Move(AktuellerOrdner, ParentVerzeichnis & "\" & NeuerOrdnerName)
      433. AktuellerOrdner = ParentVerzeichnis & "\" & NeuerOrdnerName
      434. Catch ex As Exception
      435. 'Dim OKVM = New OKDialogViewModel
      436. 'OKVM.Meldung = "Der Ordner konnte nicht umbenannt werden. " & Environment.NewLine & "Fehlermeldung: " & ex.Message
      437. 'dialogService.ShowModalDialog("", OKVM, Me, True, False, Services.WindowStyle.None, Services.ResizeMode.NoResize, 500, Services.SizeToContent.Height, Services.WindowStartupLocation.CenterOwner, "")
      438. MessageBox.Show("Der Ordner konnte nicht umbenannt werden. " & Environment.NewLine & "Fehlermeldung: " & ex.Message)
      439. End Try
      440. End Sub
      442. Private _DateiTypIndex As Integer
      443. Public Property DateiTypIndex As Integer
      444. Get
      445. Return _DateiTypIndex
      446. End Get
      447. Set(value As Integer)
      448. _DateiTypIndex = value
      449. RaisePropertyChanged()
      450. End Set
      451. End Property
      453. Private _VerzeichnisAuswaehlen As ICommand
      454. Public ReadOnly Property VerzeichnisAuswaehlen As ICommand
      455. Get
      456. If _VerzeichnisAuswaehlen Is Nothing Then _VerzeichnisAuswaehlen = New ViewModel.Instrastructure.RelayCommand(AddressOf VerzeichnisAuswaehlen_Execute)
      457. Return _VerzeichnisAuswaehlen
      458. End Get
      459. End Property
      461. Private Sub VerzeichnisAuswaehlen_Execute(obj As Object)
      462. If (UnterVerzeichnisIndex <> -1) Then
      463. Dim IsDir As Boolean = System.IO.File.GetAttributes(UnterVerzeichnisse(UnterVerzeichnisIndex)) = FileAttributes.Directory
      464. If IsDir Then AktuellerOrdner = UnterVerzeichnisse(UnterVerzeichnisIndex)
      465. End If
      466. End Sub
      468. Private _RootAuswaehlen As ICommand
      469. Public ReadOnly Property RootAuswaehlen As ICommand
      470. Get
      471. If _RootAuswaehlen Is Nothing Then _RootAuswaehlen = New ViewModel.Instrastructure.RelayCommand(AddressOf RootAuswaehlen_Execute)
      472. Return _RootAuswaehlen
      473. End Get
      474. End Property
      476. Private Sub RootAuswaehlen_Execute(obj As Object)
      477. If RootIndex <> -1 Then AktuellerOrdner = RootVerzeichnisse(RootIndex).Pfad
      478. End Sub
      480. End Class


      Das Ganze gern erweitern, modifizieren und/oder verwenden (z.B. in einem modalen Dialog anzeigen) :)

      Oder euren Senf dazugeben :)

      Bei Fragen bitte melden.

      Edit: Hab noch ein paar Bugfixes gemacht, neuer Download siehe neuester Post.

      Und weils so schön war: Bis heute (09.01.2024) wurde das File 63 Mal heruntergeladen :-)
      Bilder

      • screenshot folderbrowser.png

        35,38 kB, 820×509, 147 mal angesehen

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „kafffee“ ()

      Erstmal ´n Kaffee und da nach downloaden

      Danke lieber @kafffee, werde es mir unter den Nagel reißen, weil keine Lust auf Service-Layer-Entwicklung und so ... Unbesehn jekoooft Keule.

      c.u. Joshi. Jetzt mit neuer Kaffeetasse vom 40zigstem der C`t. dort steht "Trendsetter seit den 80ern." Wie ich... :thumbsup:

      So, hiermit lade ich eine neue Version meines File- und Folderpickers hoch. Im Langzeittest haben sich nochmal 5-6 Bugs aufgetan die ich nun repariert hab.

      Es lohnt sich nochmal herunterzuladen, denn ein Bug war besonders fies:

      Als ich versehentlich versucht habe den Ordner C:\Users\<User>\Desktop umzubenennen ist zwar der Try-Catch-Block angesprungen, aber da war das Kind schon in den Brunnen gefallen: Meine Dateien und Ordner auf dem Desktop waren verschwunden. Ich konnte sie zum Glück wiederherstellen, indem ich im Windows Explorer die Ordner und Dateien gesucht habe (mit der Suchfunktion oben rechts), die auf dem Desktop waren, und sie dann aus der Suche wieder auf mein Desktop kopiert hab.

      Also nochmal viel Spass damit :)
      Dateien

      Könntest du das als GitHub-Repo hochladen?
      Dann kann man das viel besser in Projekte einbinden.

      Kann dir nachher sonst auch fix zeigen, wie das funktioniert. Wäre vielleicht sowieso mal eine gute Idee, hier im Forum ein Faden zu erstellen, wo Git mal erläutert wird, mit Tipps und Tricks.
      Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

      Meine Firma: Procyon Systems
      Meine Privatwebseite: SimonC.eu

      Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
      Ich versuche auf euch zurückzukommen :)

      Hoffentlich haste nicht nur die ZIP hochgeladen :D

      Einfach im OP den Link zu GitHub einfügen, über das Bearbeiten Button
      Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

      Meine Firma: Procyon Systems
      Meine Privatwebseite: SimonC.eu

      Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
      Ich versuche auf euch zurückzukommen :)

      Das wäre der richtige Link gewesen, ja. Das Repo hättest du aber als "Public" einstellen müssen :)
      Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

      Meine Firma: Procyon Systems
      Meine Privatwebseite: SimonC.eu

      Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
      Ich versuche auf euch zurückzukommen :)

    Facebook
    Telefonspende