• ベストアンサー

ファイル番号の取得について

ysk6406の回答

  • ベストアンサー
  • ysk6406
  • ベストアンサー率40% (237/589)
回答No.1

FreeFile 関数を使って、以下のようにすればできます。 fn = FreeFile Open FileName For Input As fn 詳細は、VB6 のヘルプをご覧下さい。

rukaandkaito
質問者

お礼

そうそう! その通りです! あ~!胸のつかえが取れました。 有難うございます!!!

関連するQ&A

  • ファイル名の取得

    こんばんは。 指定したフォルダ(IEキャッシュ)のサブフォルダ以下のファイル名を取得しようとしています。 コードは次のとおりなのですが、ファイル名の取得ができません。どこがまずいのか、是非アドバイスを下さい。 よろしくお願いします。 -------------------------- Private Sub Form_Load() Dim FileName As String FileName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*\*.gif") MsgBox FileName End Sub --------------------------- **環境** Win98se , VB6.0sp5 ,IE5.5sp2

  • 変数の頭「#」の意味

    VB初心者です。 VB5のOPEN関数等で見かける #変数名 の#はどういう意味でしょうか? ヘルプを見ると「省略可能」とありますが・・・ 指定した場合に何か意味を持つものなのでしょうか? 例 intFileNo = FreeFile Open "test.txt" For Input As #intFileNo

  • 「mcisendstring」 MIDIファイルの演奏時間の取得に関して

    「mcisendstring」により、WAVEファイルやMP3ファイルでは演奏時間が正確に取得できましたが、MIDIファイルでは正確に取得できませんでした。おそらく、MIDI特有のテンポなどの情報が関係しているのだと思いますが、対処方法が思い当たりません。 どなたか、教えて下さい。 (因みに VB6+WINDOUWS98SEの環境です。) 以下は、私のプログラム事例です。 '■GetLength '■機能: ファイルの長さを秒単位で返す。 '■引数: FileName 対象のファイル名 Private Function GetLength(FileName As String) As Double Dim RetBuffer As String * 20 Dim MCICommandString As String MCICommandString = "status """ & FileName & """ length" Call mciSendString("open """ & FileName & """", "", 0, 0) Call mciSendString(MCICommandString, RetBuffer, Len(RetBuffer), 0) Call mciSendString("close """ & FileName & """", "", 0, 0) GetLength = Val(RetBuffer) / 1000 End Function

  • ファイルの先頭に特殊コードを置いてファイルを作るには

    いつもお世話になります。 あるアプリケーションからファイル形式をUNICODE指定してテキストファイルとしてエクスポートしました。 このファイルの拡張子をTXTにしてからメモ帳ですべてを選択して削除してファイルのプロパティを見ると サイズ:2バイト ディスク上のサイズ:4KB(4096バイト) となっています。 Open filename For Input As #1で中身を見ると ASCで255、254です。(このような見方でいいのか?) やりたいことはこのような特殊コードの後にUNICODEのデータを並べて記述するプログラムを書きたいのですが、どうしたらよいか、うまくいかず困っています。 よろしくお願いします。

  • VBでのテキストファイルへ参照の際の指定行への移動

    VBのOpenステートメントでテキストファイルを読み込み、Instrで文字列の検索を 行っています。 もし、検索文字が見つかった場合、次の値を取得する。という風にコーディングしています。ここまではコーディングは出来ている状態です。 ここで値が取得できたら、次の検索文字を検索する際に、また最初の行へ戻って、ファイルを読み直したいのですが、最初の行へ戻るというメソッドはないのでしょうか? ヘルプやネットのサンプルなど参照していますが、それらしきものが見当たりません。一度Closeして再度Openするしか方法はないのでしょうか? もしご存知のお方がいらっしゃいましたらご教示いただけませんでしょうか? よろしくお願いいたします。

  • バイナリデータの中からMidのように指定範囲を取得したい

    教えて下さい。 VB6です。 テキストファイルをバイナリモードで開き、Midのように特定の位置から、 必要な分を取得し、ファイルを分割させたいです。 調べてたら、 Open 読込ファイル For Binary As #1 Open 書込ファイル For Binary As #2 ReDim bytData(1 To LOF(1)) Get #1, , bytData() Put #2, , bytData() close #1 close #2 というのを見つけました。これだとそのままコピーします。 ここから、指定された、バイト数目から指定されたバイト数までの データを取得し別のファイルを作りたいのですが、 うまくできません。どうしたら、望むことができるでしょうか? お助け下さい。

  • DLLのLPSTR 項目の戻り値の取得について

    VB.NET初心者です。 C言語で作られたDLLの戻り値の取得で困ったことが発生しました。 どなたかが解決方法を教えてください。 -----------HHL5d.DLL定義(C言語)-----------  int HLFRecv ( LPSTR fileName ); ----------------------VB側宣言部---------- Declare Function HHLFRecvLib "HHL5d.DLL" _ (ByVal fileName As String) As Integer ※ fileName で指定された場所にファイルを書き込みます。 ・ 関数終了時には書き込んだファイルの(ファイル名を含んだ)フルパスがfileNameに上書きされます。 -----------VB側本文---------- Dim strRecvFile As String Dim intCnt As Integer  intRtn = HHLFRecv(strRecvFile) ※処理終了後に、strRecvFileにファイル名を含めたフルパスを戻したい。 byval定義の場合は、HHLFRecv関数内で変数の変更ができないため値の取得ができません・・ これを取得できるようにVB側の構文を書き換えたいのですが、方法がわかりません。 どなたかアドバイスをお願いいたします。

  • テキストの読込について

    あいうえお かきくけこ さしすせそ ↑のような中身のテキストファイルを読み込んで、 あいうえおかきくけこさしすせそ ↑のように、改行をなくして新規テキストに出力する プログラムを作成中なのですが、上手くいかず 困っています。 改行を無視した取り込みは出来るのでしょうか? もしくは、LineInput等で読み込んだ後、 改行を取り除くような処理をするのでしょうか? 下記は、現在まで作ったプログラムなのですが、 これだと、改行も同時に取り込んでしまっています。 Private Sub Command1_Click() Dim sData As String Dim FileName As String CommonDialog1.Filter = "テキスト|*.txt|全てのファイル|*.*" CommonDialog1.ShowOpen FileName = CommonDialog1.FileName Open FileName For Input As #1 Do Until EOF(1) Line Input #1, sData Loop Close #1 環境は、WindowsXP、VB6.0エンタープライズです。 以上、宜しくお願い致します<(_ _)>

  • VB2005 でCSVファイルの読み込み

    VisualBasic2005でカンマ区切りのcsvファイルを読み込み、各項目を配列に取り込みたいのですが、どうすればいいのですか? VB6の時のように書くとエラーになります。 VB2005にはopen命令はないみたいですね。 Open ファイル名 For Input As #1 input #1,s(1),s(2),s(3) close #1 ちなみにcsvファイルの内容は "会社名(co.xxx,sss)","工場名","製品名(aaa,xxx)" のように各項目中にカンマやピリオドが入っています。 VB6はVBAではダブルコーテーションで囲めば正常に読み込めました。 どなたか教えて下さい。よろしくお願いします。

  • VB.NETでサーバーからFILEを取得する

    サーバー上にあるテキストファイルを FTPで取得したいのですが VBであればInetを使用して↓のように取得が可能 だったのですがVB.NETでのInetの使用方法がわかりません どなたかご存知の方がいらしたらご教授願えますか? また、別の方法がありましたらアドバイスをお願いします。 宜しくお願いいたします。 ==================== Dim FileName As String Inet.URL = "ftp://hostname/home/temp/" Inet.UserName = "username" Inet.Password = "password" Inet.Execute(, "GET test.txt " & FileName) Do While Inet.StillExecuting = True DoEvents() Loop MsgBox("ダウンロード終了") ====================