Det var sgu da lige en lille ekstra betingelse der ville noget !
Men her kommer det.
Hent
http://80.199.19.48/arne/eksperten/filemanip/filemanip.zipUdpakker - f.eks. til C:\util\FileManip.dll
Laver noget passende VB kode, eksempel:
Declare Sub FileManip Lib "C:\util\FileManip" Alias "_FileManip@8" (ByVal oldfilename As String, ByVal newfilename As String)
Function DoFileManip()
Call FileManip("C:\z.1", "C:\z.2")
End Function
og så skulle det faktisk virke.
Ovenstående demo laver en kopi af z.1 minus første linie som z.2 !