System.IO.FileInfo... System.IO.File....
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim nouveauNom As String = "DOE" + ComboBox1.Text + ComboBox2.Text
Directory.GetFiles("C:")cet exemple retourne tous les fichiers dans C:
Public Shared Sub begindoe()
If (String.IsNullOrEmpty(Form2.TextBox1.Text) Or String.IsNullOrEmpty(Form2.TextBox2.Text) Or String.IsNullOrEmpty(Form2.TextBox3.Text)) Then
MsgBox("Remplisser toute les cases pour pouvoir poursuivre la création du DOE", vbCritical)
Else
Dim nomcodefolder As String = Form2.TextBox1.Text
Dim nomdoc As String = "DOE_" + Form2.TextBox1.Text + "_" + Form2.TextBox2.Text
Dim nomcodefile As String = Form2.TextBox3.Text
My.Computer.FileSystem.CreateDirectory("C:\test\" + nomdoc)
MsgBox("Vérification des données entrées :" & vbNewLine & vbNewLine & "Code du dossier : " + nomcodefolder & vbNewLine & "Code des fichiers : " + nomcodefile & vbNewLine & "Nom du DOE : " + nomdoc, vbInformation, "Récapitulatif")
Form3.Show()
Form2.Close()
End If
End Sub
Public Shared Sub deplacer()
Dim namepath As String = "DOE_" + Form2.TextBox1.Text + "_" + Form2.TextBox2.Text
Dim equipname As String = Form3.ComboBox1.SelectedItem
Dim FileToMove As String = Form3.ListBox1.SelectedItem
Dim MoveLocation As String = "C:\test\" + namepath
If System.IO.File.Exists(FileToMove) = True Then
System.IO.File.Move(FileToMove, MoveLocation)
MessageBox.Show("fichier déplacer vers" + MoveLocation)
End If
End Sub