Hej
    
Sv: Skapa txt dok
    
    
	    
    Svara
Dim FileNum As Long
       FileNum = FreeFile
Open "C:\mintextfil.txt" For OutPut As #FileNum
Close #FileNum
mvh
Sven
 Hej
    
Sv: Skapa txt dok
    
    
	    
    Svara
Dim FileNum As Long
       FileNum = FreeFile
Open "C:\mintextfil.txt" For OutPut As #FileNum
Close #FileNum
mvh
Sven