assuming your .nb file is in the same directory:
files = FileNames[NotebookDirectory[] <> "*.csv"]
This gives the files to import. If you plan on plotting one vs another, you can get them in one list:
raw = Map[Import, files]
and plot, say raw[[4]] and raw[[9]] on the same plot. or plot them individually by turning all your code above to a function (say plotter[data_] and do:
Map[plotter,raw]
alternatively, if you really do not want all the data in memory at the same time (especially for large files). Change plotter[] to take a filename (plotter[file_]) and do
Map[plotter,files]
In this case:
plotter[file_]:=Module[{raw,plotData,time,ch1,dataset1},
raw=Import[file];
plotData=Select[raw[[17;;]],Length[#]==5&];
time=plotData[[All,1]];
ch1 = plotData[[All,2]];
dataset1=Thread[{time,ch1}];
ListPlot[dataset1,PlotRange->All,AxesLabel->{HoldForm[Zeit in s],HoldForm[Spannung in V]},PlotLabel->HoldForm[Schwingung einer gezupften Saite],LabelStyle->{FontFamily->"Calibri",12,GrayLevel[0]}]]
Regards