ホーム > カテゴリ > Visual Basic >

ファイルを移動する

ファイルを移動するサンプルです。

サンプルの実行画面

ソースコード

[MoveFile.frm]

'既存のファイルを移動する

'＜引数＞
'lpExistingFileName:       元のファイル名･ディレクトリ名
'lpNewFileName:            新しいファイル名･ディレクトリ名
'＠戻り値＠
' 正常終了0以外


Private Declare Function MoveFile Lib "KERNEL32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long


Private Sub Command1_Click()
 
  Dim Ret As Long
  Dim OldName As String
  Dim NewName As String

   OldName = Text1.Text
   NewName = Text2.Text

    Ret = MoveFile(OldName, NewName)
 
 If Ret <> 0 Then
   MsgBox "移動しました"
 Else
   MsgBox "移動できませんでした"
 End If

End Sub

ソースコード一式のダウンロード

vbapi_movefile.zip 959 バイト (959 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：パス名からファイル名を取得する
次の記事：ごみ箱を操作する

公開日：2015年03月04日
記事NO：00343