'調出該文件到C盤。 Dim s() As Byte '定義s為字節(jié)型變量,用于儲存二進制數(shù)據(jù) s = LoadResData(101, "CUSTOM") '載入id號為101的自定義資源,賦給s Open "C:\a.swf" For Binary As #1 '在C盤新建一個文件,F(xiàn)or Binary 表示以二進制文件形式創(chuàng)建 Put #1, , s '將s的內容(即資源文件的內容)寫入剛才新建的文件中 Close #1 '關閉這個文件,結束文件操作。