Kategorie: vb.net

Alle Dateien in einem Verzeichnis auflisten

Dim files() As String = IO.Directory.GetFiles("c:\")

For Each file As String In files
   ' file = Dateiname
Next

Newtonsoft serialize/deserialize to/from file

Eine Klasse in eine Datei serialisieren:

File.WriteAllText("c:\movie.json", JsonConvert.SerializeObject(movie))

Eine Datei in eine Klasse deserialisieren

Dim movie1 As Movie = JsonConvert.DeserializeObject(Of Movie)(File.ReadAllText("c:\movie.json"))

Eine asnychrone Funktion innerhalb einer synchronen aufrufen

Private sub SynchroneProzedur
   ' ...
   ' Asynchrone Funktion innerhalb:
   Dim t As Task = Task.Run(Async Function()

      ' ...
   End Function)
   t.Wait()
   .Dispose()