operazioni sui file (VB6)

[MissRachele]

avrei bisogno di sapere le istruzioni per eseguire le più comuni operazioni sui file; in particolare mi interessa, avendo il percorso:

cancellare un file

spostare un file da una cartella all'altra

rinominare un file

farne il "taglia", il "copia" e l'"incolla"

grazie mille

[MissRachele]

...almeno cancellare un file?

[ciro78]

se non erro per cancellare un file si usa kill

[webgip]

cancellare il file "c:\aaa.txt" :

Kill "c:\aaa.txt"

Rinominare un file:

Name "c:\aaa.txt" As "c:\bbb.txt"

[diegocoz]

Potresti anche usare un oggetto di tipo FileSystemObject: sulla guida in linea ci sono esempi belli chiari. Io ad esempio ho usato queste funzioncine:

Public Function Chk_Path(Cartella As String) As Boolean
    Dim fso
    Chk_Path = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(Cartella) Then
        Chk_Path = True
    End If
    Set fso = Nothing
End Function

Public Function ReadAllTextFile(nFile)
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   On Error GoTo Err_Read
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(nFile, ForReading)
   ReadAllTextFile = f.ReadAll
   Exit Function
Err_Read:
    ReadAllTextFile = ""
    Me.Desc_Errore = Err.Description
End Function

Private Function EsisteFile(nFile) As Boolean
    Dim fso, f
    
    EsisteFile = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.fileexists(nFile) Then
        EsisteFile = True
    End If
    Set fso = Nothing
End Function

oppure in altri contesti

......
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.deletefile Path_Stampe & "stampa_pdf*.pdf", True
......
    Dim filelist, filesingolo
    Set filelist = fso.GetFolder(Path_Stampe).Files
    For Each filesingolo In filelist
        If UCase(Right(filesingolo.Name, 4)) = ".PDF" Then
           MsgBox filesingolo.Name 
        End If
    Next
    
    Set fso = Nothing
......

Buon lavoro