04/11/11 13:41:51
>>377
それでなりました。どうもありがとう。
Try
'一度ﾌｧｲﾙ名をﾘﾈｰﾑし可能なら他のｱﾌﾟﾘｹｰｼｮﾝで使用されていない
'不可能なら使用中
'Microsoft.VisualBasic.FileSystem.Rename(filename, filename + "a")
'Microsoft.VisualBasic.FileSystem.Rename(filename + "a", filename)
Catch
こんなことしてました↑。
Try
Dim s2 As New FileStream(filename, FileMode.Open _
, FileAccess.Read, FileShare.None)
s2.Close()
Catch