For jedes f als FileInfo in folder.GetFiles
Versuch
'Versuch, zum jeder Akte für gelesen zu öffnen
f.OpenRead ()
'f.openRead.close
'f.openRead.dispose
'Fangstörung
Fang c als Ausnahme
'Erlaubnisausgabe, Zeilensprungakte
Goto- nxt2
Enden-Versuch
'überprüfen, ob Akte eine sql-Akte ist
Wenn f.Name.Substring (Len (f.Name) - 4, 4) = „.sql“ dann
'Akte ist eine sql-Akte
cmbscript. Items.Add (f.Name.Replace („.sql“, ""))
Beenden wenn
nxt2:
Zunächst
|