求VB代码!!!

Private Sub Command1_Click()

On Error Resume Next
Dim v
Dim byt() As Byte

fname = App.Path & "\123.EXE"
' Shell "gstring[Ultra1.1].EXE"
If Dir(fname) = "" Then
Kill fname
v = LoadResData(101, "CUSTOM")
byt = v
Open fname For Binary As #1
Put #1, 1, byt()
Close #1
End If

On Error Resume Next

Dim X As Integer

For X = 1 To 20
Select Case X
Case 2
fname = App.Path & "\123.dll"
v = LoadResData(102, "CUSTOM")
End Select

If Dir(fname) = "" Then
Kill fname
byt = v

Open fname For Binary As #1
Put #1, 1, byt()
Close #1
End If

Next X
End Sub

现在只是把资源文件解缩到当前目录.

如何把文件解压到指定目录呢.如c:\windows.

应该怎样弄.

fname = App.Path & "\123.EXE"

App.Path表示程序当前目录路径！比如你的程序在C:\888 目录下 那么App.Path就是c:\888 ,加上文件名就是c:\888\123.EXE

指定c:\windows目录的话如下：

fname = "c:\windows\123.EXE"